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Jo TINTRODUCTION 


eee HISTORY OF THE BASIC LANGUAGE 


The Beginner's All-Purpose NE Pastuetion Code 
(BASIC) was developed at Dartmouth College to provide a sim- 
ple, interactive lanauaae for liberal arts students with 
specific applications in scientific computation. In order 
momeet this goat, only a limited vocabulary of instructions 
E xncluded in the original definition of Basic. There was 
no concept of data typing and there were no default condi- 
tions to memorize. The interactive nature of programming 
provided an ideal man/machine interface for creating and de- 
bugging programs, while the features of the languace were 
well-suited for the expression of enaineering and mathemat- 
ics problems. Since this environment satisfied the needs of 
a wide ranae of SONA computer users, Basic was procured 
for adaptation by a number of universities anc commercial 
firms. In particular, timesharing service bureaus expanded 
computer usage among non=comouter specialists by providing 
its customers with the Basic language. This led to the 
develooment of numerous dialects of Basic and to many exten- 
sions intended to satisfy the uniaue needs of various users 


er. 





As the use of Basic increased and extensions to the 
language became more widespread, the need for standardiza- 
tion became an industry wide concern. In 1974, this concern 
annal» led to the formation of the X3J2 committee of the 
American National ras Institute which was tasked with 
formulating a proposed standard for the Basic programming 
language. The result of an extensive effort was the Pro- 
posed American National Standaras Institute (ANSI) report on 
a proposed standard for Minimal Basic 121% The proposed 
standard established a minimum set of features which should 
be included in the implementation of a Basic language pro- 
cessor. While the proposed standard provided arithmetic and 
very simple strina orocessina capabilities, it did not con- 
Sider the more extensive features, i.e. multi-program inter- 
facing and extensive predefined functions, which had inie- 
tially led to the neea for standardization. In a recent ar- 
ticle (5], Lientz compared the different commercially avail- 
able Basic languaae processors. This survey indicated that 
most Basic processors provided similar features and included 
extensive facilities beyond those in the proposed ANSI stan- 


eard. 


OBJECTIVES OF THE EXTENDED BASIC LANGUAGE 


Extended Basic was designed to orovide all the ar1ithmet- 
ic processina features of the proposed standard for Basic as 
well as extensions and enhancements to the lanauage for use 


at the Naval Postgraduate School. These extensions included 





multi-dimensional arrays» loaical operators for numeric and 
string quantities, String manipulation, and seauential ac- 
cess to external files. Further, extended Basic retained 
the original concepts of Dartmouth Basic while freeing the 
programmer from many of the original limitations. Enhance- 
ments included improved control structures and features to 
enhance increased readability. Extended Basic also attempt- 
Samet Oo maintain Grammatical comoatibpility with existina ex- 
tensions to Basic, particularly those in use at the Naval 


Postgraduate School. 


An additional goal of extended Basic was to provide 
non=computer scientists with a more managable high level 
language capable of interfacing with other subsystems sup- 
ported on the PDP-11 at Maval Postgraduate School. Examples 
of such subsystems are the procedures which drive the vari- 
ous graphics devices found in the comouter laboratory. The 
orimary UNIX system graphics language is C [11] which pros 


des support for the subsystems in the PDPell. 


Currently included within UNIX are a dialect of Fortran 
[12], the Fortran preprocessor [13) RATFOR, an interpreter 
for a highly soecialized dialect of Basic [14], produced by 
EU Laboratories [4], Digital Eauioment Corporation's FOP- 
TRAN IV PLUS, and the UNIX assembler [7]. None of these 
languages were entirely suited to this special araohics en- 


vironment as they existed in the system. Extended Basic 1s 


an easily learned languaae which is readily adaptable to the 


10 








student environment and enhances the Graphics Capabilities 


in the laboratory. 


Unlike many existing implementations, extended Basic was 
not implemented as a purely interpretive languace. A source 
program is compiled, generating an assembly language file. 
This code is then assembled and loaded with the Basic li- 
brary, and other libraries as specified by the user, includ- 
uus the € library, the various araphics device libraries, 
and any user designed libraries which may exist for particu- 
lar implementations. The compilation, assembly and loading 
actions are called by a program, LBAX, which is resident in 
the UNIX system. Usage of the program is described in Ap- 


pendix II. 
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A AGE SPECIFICATION 


Mita e following section, the Dartmouth Basic language 
and the ANSI proposed standard will be reviewed, followed by 
a discussion of the features of extended Basic which differ 
from Dartmouth Basic and the oroposed ANSI standard. These 
features include extended arithmetic processing, improved 
readability, expanded control structures», string manipula- 
tion, external file access, and program access to system 


Software for graohics interface. 


A, THE PROPOSED STANDARD FOR BASIC 
fae Cartenouth Basic 


Dartmouth Basic is a statement oriented language. 
Each statement consists of a line numoer and a command. Na- 
ta is either numeric real or character strina with no dise» 
tinction being made between types of numeric data. Identif- 
1ers terminated by a dollar sian refer to string variables, 
while all other jdentifiers reference numeric quantities. 
Identifiers consist of only a single letter or a letter fol- 
lowed by a dollar sign. Arithmetic operations, defined on 
numeric data only, are represented by the infix operators +t, 
T, *, /, and Y? (exponentiation). Unary operations are de- 


fined by the prefix operators t and œ>. Both data types may 


lo 





be compared using the infix relational operators <, <=, >, 
>=, and <>. One and two dimensional numeric arrays are suo- 
ported. Finally, a limited number of predefined algorithms 
perform elementary function evaluation [5]. These include 
ABS, ATN, COS, EXP, INT, LOG, RNO, SGN, SIN, SQR, and TAN. 
A complete descriotion of these oredefined functions is 


presented in Appendix I. 


Dartmouth Basic is intended to be an interactive 
language with both editing and orogram execution occuring in 
the same environment. Therefore, most Dartmouth style Basic 
implementations rely on line numbers to play an important 


In the editina function of Basic. 


2. The Proposed ANSI Standard 


The proposed ANSI standard [2] incorporates al] the 
features of Dartmouth Basic and adds the following state- 


mentss 


ON RANDOMIZE DEF 


OPTION STOR 


With the exception of the OPTION statement, most existing 
Basic implementations include all of these additional 
features. These extensions are described as they exist in 
this ¡implementation in Appendix I. The OPTION statement is 
used to specify whether the lower bound of an array Is zero 


or one. 
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Most existing Basic language processors ao well 
beyond the proposed ANSI standard to provide file-handling 
ability, formatted output, string manioulation, matrix 
operations, and a multitude of oredefined functions. The 
survey by Lientz [3] oocuments these extensions for many 
large and mini-comouter manufacturers, and for a number of 


timesharina services. 


Bee FEATURES OF THE EXTENDED BASIC LANGUAGE 


Extended Basic was desianed to maintain compatibility 
with the proposed ANSI standard while extending the language 
to incorporate such features as String processing and exter 
nal file access. Enhancements were also included to provide 
additional control structures and increased readability. In 
this section the features of extended Basic which do not ap- 
pear in the proposed ÁNSI standard will be discussed. Ao- 


pendix I includes a complete description of the language. 


1. Arithmetic Processing 


Extended Basic adds to arithmetic processing by sup- 
porting multiole dimensional arraySe All arrays must be 
dimensioned orior to usage in the program and the same iden- 
tifier may not serve as both an array, whose elements are 
subscripted, and a simple non-subscrioted variable. Logical 
binary operators AND, OR, XOR (exclusive or), and the unary 
operator NOT are provided for the logical evaluation of 


numeric and string expressions. The relational operators ”= 
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and !|z (not equal) have been added to the set of logical 
operators for comoatability with existing languages. User- 
defined functions, defined using a DEF statement, may have 
any number of oarameters. However» as with FORTRAN, every 
function must have at least one parameter. Functions must 
be defined prior to aopearance. While functions may refer 
to other functions within the body of the definition, recur- 


sive references are not permitted. 


The OPTION statement is not implemented. Since the 
lower bound of every array 1s always zero and there are ntl 
elements allocated by the compiler for every array, the user 
is provided the OPTION feature by default. Que to the 
manner in which the UNIX system effects external system 
calls, undimensioned subscrioted variables should not be 
used, as is conditionally allowed in Dartmouth Basic anc the 


proposed ANSI standarc. 


Arithmetic constants may be written in either in- 
teger or decimal form. All constants are viewed internally 
double orecision floating point numbers. Scientific no- 
tation is not implemented. Numeric constants are output in 
decimal form only. The columnar width of numeric output may 
be specified using the COL function. If columnar width 1s 
mot soecified, COL defaults to 10 columns. If the value 
exceeds the prescribed width, the field is filled with a 


string of question marks. 
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2. Readability 


Readability has been improved by increasing variable 
name  lenath, permitting free form input with statement con- 
tinuation, and by not requiring line numbers on all state- 
ments in the program. Historically, Basic permitted vari- 
able names consistina of a single letter or a letter fol- 
lowed by a number. This makes large programs difficult to 
understanc and debug. Extended Basic allows variable names 
Memeconsist of up to four alpha-numeric characters of both 
upper and lower case», exceot string variables which should 
meeruce ‘'S' in the second or third character position. 
Predefined functions may be written in upper or lower case; 
however» all characters in the name must be of the same 


Case. 


Basic traditionally has restricted each statement to 


n " 


onec Jine. Extended Basic provides the "at" sign ( @ ) as a 
continuation character, allowing multiple erogram lines to 
appear as one statement to the compiler. This is particu- 
larly valuable when using nested IF statements with the ELSE 
clause followed by another IF statement. All of the members 
of the primary IF statement could not be physically con- 
warmed on one line om conventional timesharina input/outout 


devices. The followina example demonstrates t^e improved 


readability provided by continuation: 
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if x = y then a 
z = x(i,i)) 9 
else a 
if x > y then a 
ZER 11) x 93 
else a 


z = w(i,i1) — y 


Both Dartmouth and the proposed ANSI Basic include 
mandatory statement labeling because of the interactive 
editing feature of Basic. Extended Basic does not use 
internal interactive editing and subseauent program execu- 
tion. Changes are made to the program source code, using 
the UNIX text editor aña subseauentiy recompilima the pro- 
gram. Thus line labels are only necessary for use in con- 
trol Structures. Examples of limited line labeling are 


found in the example croarams at the end of this section. 


The TAB function has not been implemented. The use 
of commas and semicolons to force columnation is not effec- 
given Partial consistancy with the crocosed  standara has 
Ben maintained by providing a continuation flag for output. 
When a semicolon appears at the end of a print statement, 
newline is not invoked, and the next output from a print 


statement will immediately follow the existing output. 


Im 





9. Control Structures 


Extended Basic has expanded the control structures 
included in standard Basic. These structures consist of the 
FOR, IF, GOTO, GOSUB, ON, STOP and RANDOMIZE statements. 
Extended Basic significantly increases the power of the IF 
Statement by providing an optional) ELSE clause and by allow- 
ing an executable statement to follow the THEN and the ELSE. 
An executable statement is further defined in Appendix I. 
Any such executable statement may be used within an IF 
Statement. Additionally, the IF statement, which is classi- 
fied as a simple statement, may be used in the same manner 
as an executable statement in the ELSE clause. Thus IF 
Statements may be nested to an infinite depth; however, only 


one executable statement may exist at the deepest level. 
4. String Processing 


Extended Basic contains features wnich provide for 
general string manipulation. Strings are created dynamical- 
ly, may vary in length to a maximum of 255 characters, and 
may be subscripted to one dimension to create a vector of 
strings. The predefined function LEN returns the current 
length of a string. All string variables and String array 
elements are initialized as null] strings with a length of 
zero. Strinas may be created and associated with a variable 
using the replacement operator (=), an INPUT statement, or a 
READ 4$statement. A string entered from the console or read 


from an external file may not be enclosed in auotation 


LÀ 





marks, but should be delimited by newlines. AMS ECONO en- 
tered from the console or redirected by system editing 
through an external file may be terminated oy a quotation 
mark or the newline symbol, '\n', which 1s equivalent to the 
Mell line feed control character. Strings appearing in a 
data statement within the oroaram must be enclosed in auota- 
tion marks since they form an integral part of the program. 
An additional feature of extended Basic allows comparison of 


string variables and extraction of substring seaments. 


Strings are compared usina the same relational 
Ecerators used for numeric data. Two strings are equal if 
and only if the strings have the same length and contain 


identical characters. 


SubstuPimnma extraction J)s accomoljished using substring 
notation, Yee. AS mU mn) [his expression returns the sub- 
Bring of string variable AS beginning at character position 


m and extending for a lenath of n characters. 


hen predefined functions are provided to -facilis 
tate processing strings. The CHR$ function converts a 
numeric argument into a single ASCII character while ASC 
converts the first character of a string argument into a 


numeric value. 
5. Files 


Data may be transferred between an extended Basic 


program and external storage using the file processing 


In 





feature. The OPEN statement identifies files and prepares 


them for access. The general form of an OPEN statement is: 
OPEN (<external file number>,<access mode>) <file name> 


where the <file name> is a character string, which is called 
a pathname in the UNIX heirarchical file system. If a file 
exists 1n the external file system with the name represented 
by the pathname, then that file 1s opened. Otherwise, a 
file is created with that name provided the «access mode> 
specifies writing. Each file currently in use is assigned a 
unique Xexternal file number» by the proarammer. This file 
number is used for all further references to the file while 
it remains ooen for access. Data is transmitted between the 
external file and the extended Basic program using the READ 


and PRINT statements with the «file ootion»: 


READ & «file ootion»; «read list» 


PRINT * «file option»; Xexpression list» 


The «file option? specifies the file desired by referencing 
the «external file number» defined ody a preceeding OPEN 
Statement. Access to a file may be terminated by the CLOSE 
statement. End-of-file may be determined with an IF END 


statement which has the following form: 
IF END & <external file number> THEN <valid statement» 
The <valid statement> may be any statement or express1on 


which 1s permissible with a standard IF statement. 
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5, Soap dandaetmeutQüutnotut 


Standard inout and output files are organized 
sequentially. The standard input file is a linear sequence 
of numeric and string data items separated by commas and 
newlines. Each reference to a sequential file retrieves the 
next data item with READ #, or writes another data item with 
PRINT #. With each READ, the variables in the read list are 
assianed values from the inout. Line terminators are treat- 
Bas record terminators. There is no concept of a tradi- 
tional record since each record may be of indefinite lenatn, 
lini toc only by the medium through which the record is 


created. 


Likewise, with each PRINT command, values from the 
exoression list are written to the file. The expressions 
are written to the standard output as ASCII strings separat- 
ed by spaces except for the last data ¡tem in the list which 
1s followed by a newline. The use of newlines in this 
manner allows files to be disolayea usina system utilities 
and also allows files created with a text editor to de read 


by extended Basic programs. 


Since data type-checking is not accomplished, the 
sequence of item data tyoes in the expression list should 
match the seauence of item data tyoes in the external file. 
Mismatched data types will return undesirable values. 
Numeric data types reading string values will return a  se- 


quence of zeros. String data tyoes reading numeric values 


eu 





IA return a string of numbers. 


Data may be aooended to external files by specifyina 
the append access mode when an OPEM statement is used. This 
allows additional data items to be written at the end of the 
specified file. An OPEN soecifyina write access will create 
a new file if one does not already exists or will reopen an 
existing file, overwriting and destroying any pre-existing 


data. 
he External Interface 


This version of extended Basic was aesigned orimari- 
ly to enhance user ability to program with a simplistic 
language which could interface with other subsystems avail- 
moe within the UNIX environment. This was accomplished Oy 


creatina the EXTERN and CALL statements. 


The EXTERN statement defines, within t^e Basic pro- 
gram, those existing external subroutines which will be used 


for any software implementation. 


Examoles of subroutines which may be used are  POd 
and PRINTF 17) PON returns the value of the variable x 
raised to the power of y, performing floating point exponen- 
ttation. PRINTF converts, formats and prints all arguments 
after the first argument, and under the control of the first 


argument. 


ee 





These subroutines would be defined in a Basic pro- 


gram by: 


extern pow(double,double) 


extern printf(&char,double,ınteger) 


Nhile these example procedures exist in the UNIX 
system library» it is not necessary to use only existing 
procedures. The user may create procedures for specific 
needs by writing and compilina unique procedures in the C 
NManguage (11], and including the loadable version of the 
procedure as a parameter when the system compile command for 


F LBÄX, is issued. 


Once a procedure has been defined as external, it 
may be used in the Basic proaram by using the CALL state- 


ment. It would appear in the proaram as: 


call pow( x,y) 


call orintf(aS,sum,orod) 


Examolles of | Grogreams using the EXTERN and CALL 


Statements are provided in the next section. 


EXAMPLE PROGRAMS 


It. Quadratic Factors 


This example program comoutes the factors of a aua- 


Matic equation. 


e 





rem quad factors of 6th degree colynomial, Bairstow method 
dim a(9),0(9),c(9) 
nata 0,1,-17.8,99.94!1,-251.218 
data 352.611,-134,106 
mata 0,0,.00001,20,5 
print Demonstration program output" 
for i oy ety 
read a(1) 


next 1| 
read rl, 
peint "T 
print "P 
j 9 
fOr 1 
m 
prin 
next i 
print 
b(1) 
b(2) 
c (1) 
rte) 
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eke) = b(k-2) 
next k 

ao to 5 

end 


meee “Magic Figures 


This program draws random symmetric fiaures on the 
TEKTRONIX graphics device. It uses four externally defined 
graphics routines which are located in the TEKTRONIX Jie 
brary. They are NEWPAG, ANMODE, lilii; nd FINITE 9). 
NEWPAG erases the screen and returns the alphanumeric cursor 
to the HOME position» the uoper left hand corner of the 
screen [10]. ANMODE sets the cursor to the alphanumeric 
mode. INITT reauires one argument parameter specifyina the 
character transmission rate between the computer and termi- 
nal to determine the delay to the screen when erasure 1s be- 
ing performed. FINITT clears the buffers and moves the 
pointer to the position indicated by the two parameters. 
The externally defined procedure PLO!I moves the pointer to 
the x;y coordinates indicated by the arguments ana plots a 
Et at that location. The sixth externally defined 
routine is MOVE. These procedures are user definea, and are 
located in the user's external file area. MOVE causes the 
pointer to be moved across the screen without drawing on the 
Surface. 


extern newoaa() 
extern anmode() 
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extern  initt(integer) 
extern finitt(integers integer) 
extern olot(integer,integer) 
extern move(integer,inteaer) 
print "welcome to Maqic -- enter your two numbers" 
100 inout "number one ";fm 
input "number two ";fme2 
call initt(960) 
call newpag() 
d=10 
h A 
c=fm 
z-0 
120 
5 b=rad(z-90) 
x=cos(b)*d+512 
y=sin(b)*d+380 
we <>0 go to 4 
call move(4xx,4xy) 
gor to 5 
- call plot(4*x,4xy) 
5 2-24c 
c=(-1)*cxfme 
fme=1/fme 
i-1 
d-d*fm/90 
azattm 
mma «297500 go to 3 
call move(0,4x780) 
call anmode() 
go to 100 
end 
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I IPL C MENTATION 


A. SYSTEM DESIGN 


The extended Basic compiler was designed around a 
table-driven oarser which checks statements for correct syn- 
tax and generates assembly code written into a UNIX file. 
This code is assembled and loaded together with requested 
and required libraries, and other user defined program  seg- 
ments, by the assembler and loader when called by the execu- 


tive program, LBÄX, located in the system library. 


The decision to compile the source procram and then as- 
semble the intermediate lanauaqe was based on the following 
consideration: formal parsing techniaues could be used to 
analyze the syntax of the source program making extensions 
to the language relatively easy. In this case, an LÄLR 
parser-generator  YACC [o], was used to automatically aen- 


erate the parse tables for the lanqguaae. 


The following sections discuss the design of the extend- 
ed Basic comoiler ano the imolementation of the system exe- 
cutive proaram. Source listinas of the programs are  con- 


tained in the Program Listing section of this thesis. 


eu 








eee COMPILER STRUCTURE 


1. Compiler Organization 


The compiler structure requires one pass througn the 
source program to produce an intermediate assembly language 
file. This pass writes all numeric constants to the numeric 
constant list, determines the size of the symbol table and 
inserts symbols with associated attributes, outputs  inter- 
mediate level code to a file based upon parse actions and 
semantics, resolves external calls and produces the code for 


access to external files. 


The intermediate level code is the UNIX assembly 
l anguage. The formated output program, to be loaded and ex- 
ecuted, is in the oroner format for an assembly program. 


The format consists of text, data, and bss segments (7]. 


The text segment contains all the executable in- 
PSC tons and unmodified data. The data segment may con- 
tain text; but always contains initialized data which mav be 
modified during execution. The bss segment contains unini- 


malized data areas and is an extension of the data seament. 


The data seqment contains the buffers for external 
file manipulation as illustrated in Figure 1. The number of 
buffers may not exceed fifteen and is determined by the OPEN 
actions in the parser. The length of each buffer is 518 
bytes, Six of which are utilized by the system  Input/Üutout 


BEommands and 512 of which contain the string of data. 
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The Basic run=time “stack” 1s established in the bss 
segment by the comoiler and iis fifty bytes in length. It 
Mies the "last in, first out" concept and grows downward to- 


ward the data segment. 


T; Scanner 


The scanner analyzes the source program, returning a 
sequence of tokens to the parser. In addition, the scanner 
processes data statements and recognizes continuation char- 
acters. Analysis of the first non-blank character in the 
input stream determines the aeneral class of the next token. 
The remainder of the token is then scanned, placina each 
successive character into one of the accumulator vectors, ID 


or NUMSTR, used for iaentifier and numeric items resocective- 


Eye 


If the scanner recognizes an identifier, it Searches 
the reserved word list to determine if the identifier is a 
reserved word. If found» the token associated with that 


reserved word 1s returned to the carser. 


In the event the token is not a reserved word, it is 
validated from the symbol table returning an error code, if 
not defined, or the symbol table location index number, if 
defined. In order to be a valid member of the symbol table, 
an identifier must be a numeric-i identifier, string- 
identifier, fonction identifier, array identifier, or 
Eubt-in function. Whenever a symbol not defined in the 


a 
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symbol table is encountered, it 18 verified to be a proper 
identifiers Sceurri ma 1n a valid position in the input 


string, and is then inserted into the symbol table. 


If the scanner recognizes a token as a numeric  con- 
Stant, the number ist is searched to determine if the 
number is already stored. If the number is not an element 
of the ist, it is inserted into the literal numbers table 


with its appropriate identifying attributes. 
l. Symbol Table 


ine symbol table contains attributes of program and 
compiler generated entities such as identifiers and function 
names. The information storeg in the symbol table is creat- 
ed and referenced by the compiler to verify that the oroaram 
is semantically correct and to assist in code generation. 
Access to the symbol table is provided through a number of 
procedures operatina on the globally defined symbol table 


Variables. 


The symbol table is a C language structure as illus- 
usted in Figure 2. It may contain uo to 200 individual ele- 
ments which are accessed as members of an array, or may be 
identified by the attributes stored in each structure ele- 


ment vector. 


The final elements of the symbol taole contain the 
names of the built-in (or predefined) functions. The symbol 


table grows downward with subseauent svmbols preceeding 


5] 





Symbol Table Structure 


structure "symtable" arte bute. 





a Rota” 





Figure 2 








the built-in function symbol?! names. Individual elements of 
the symbol ru clcoessedabycany of a number of attri- 
mes as illustrated in Figure 2. Each entry in the symbol 
array refers to a structure consisting of six elements. 
Symbols may be selected based upon the entries in any one of 


the elements or any combination of elements. 


The attributes of a symbol! are: 


Symbol. The null terminated string of charac- 


ters representing the symbol. 


Tyoe. A numeric value which characterizes a 


symbol (-1 through 10) 


-= the null parameters of external variables 
= a numeric identifier 

- à numeric array 

- a string identifier 

= a string array 

“ROMO rogar oammer cefineo function 
“—OenunNerye built-in function 

SS ISLAS function 

= a simole format 

- à numeric format 

NS E Sirina DUITIt=in function 


= an external variable 


Dimension. The dimension of an array, the 


uroer of parameters for a function. 
j 
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Length. Ihe length of a string. 


Dope Vector. The index of the first element of 
EE array's dope vector as found in the dope array called 


DORE, 


Amount. When used with built-in functions, this 
indicates whether or not the built-in function is being 
used. For arrays, this contains the number of elements in a 


mumeric array, or the number of bytes in a string array. 


The symbol table is operated on using specialized pro- 
cedures. LOOKUP is called with a pointer which identifies a 
symbol string. It invokes COMPAR repeatedly, working uowara 
from the first symbol through the built-in function list. 
COMPAR compares two string arauments. If the string is 
found, LOOKUP returns the element number of the symbol. 
Otherwise -1 is returned. INSERT is called with a pointer 
argument to a Symbol String, The string is copied into the 
next available table element and all the attribute elements 
are set conero: Ahen the scanner determines the symbol 


type, the attributes are set to the appropriate values. 
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D Constənt List 


The constant list stores literal numbers in a C 
Mamouage structure as illustrated in Fiaure 3. It may con= 
tain up to 200 different literal numbers which may be ac- 
cessed as members of an array, or by determining the charac- 
teristics of each element's unique attributes. Fach entry 
in the constant list refers to a structure of five elements, 


which contain the various attributes. 


The attributes of a constant are: 


Value. The actual value of the constant» stored 


MDI ta double precision floating point amd integer form. 


Declaration. This identifies the context in 
which a number was first encountered which may be of tyoe 
floating point or integer, determined by the presence of 3 
decimal point in the input string. For code generation only 


MeRi loatina pont form 1s used. 


Use. This determines whether the value has been 
used as a number, a statement label, which may precede any 
Statement, or a label, which is the statement label to which 


a branch statement or control structure refers. 


In the C environment, a real number which is read as 
data tor an integer variable is truncated to integer form. 
Similarly, an inteaer numoer read as data for a real vari- 


able is transformed to real notation. when a value jis 
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Constant Table Structure 
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meomed im the Basic constant list, it is stored in both 
forms, thus requiring a flag indicatina the proper form to 
be accessed when the number is used during execution of the 
program. Nhile the compiler produces output which performs 
arithmetic operations with double precision floating point 
numbers only, labels and statement labels should be of in- 


teger form. 


|. External Files 


External file management is implemented usina the 
UNIX system calls OPEN and CLOSE, and system routines GETC 


and PUTC (9). 


Each time the parser encounters an OPEN statement, a 
flag is set in an element of the compiler array FDS, which 
contains a file descriptor status for each external file. 
The element number corresooncas directly to the references 
external file. In the event a command to CLOSE a previously 
unopened file occurs, an error flag is set for the 
corresponding file. Similarly, efforts to READ from or 
PRINT to an unopened file will cause an error flag to be set 
in the FDS array. These errors are reported after the 
scanner comoletes its function, during the acceptance ac- 


moms of the compiler. 


While the parser 1S aenerating assembly code, the 
string name of each referenced file iS insertea as a con- 


Stant in the assembly source program. This provides the 
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string argument which is required as one of the parameters 


for the UNIX system routine OPEN. 
ed. Parser 


The oarser 1s a table-driven pushdown automaton. Lr 
receives a stream of tokens from the scanner and analyzes 
them to determine if they form a sentence in the extended 
Basic grammar. As the oarser acceots tokens, one of three 
ections will be performed. It may stack the token and con- 
tinue to analyze the source proaram by fetching another to- 
ken, or the parser may determine that it has recognized the 
prght part of one of the productions of the language and 
cause a reduction to take place. Finally, the parser may 
determine that the current strina of tokens ooes not produce 
EE ud right part for a production and thus produces a syne- 


tax error message. 
B. Code Generation 


In addition to verifying the syntax of source state- 
ments, the oarser also acts as a transducer by associating 
Semantic actions with reductions. Each time the parser 
determines that a reduction should take olace, the procedure 
SEMANT is called with the number of the croduction passed as 
a parameter. The constant list contains the information re- 
auired to perform the semantic action associated with the 
selected production. The action may include generation of 


assembly lanauage code and ooerations such as symbol table 
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mani 


pulations and updating of the parse arrays. Some pro- 
ductions have no semantic actions associated with them. 
In the following section, the syntax of the lanauage 


1s 


with appropriate semantic actions 


st 


ber! 


Misted BNE  nóotation (B). A listing of the grammar 


ıs orovided in the program 


ing following the appendices of this thesis. The token 


means carriage return. 


a. Extended Basic Language Structure 
The overall structuren of the extenqed Basic 
language is defined by the followina syntax equations: 


(1) 


(2) 
i5.) 


(4) 
(5) 


(6) 
(7) 


(8) 
(9) 
(10) 
er) 


drz) 
(13) 
(14) 
015 ) 
(16) 
(17) 
aS) 
219) 
(20) 
(21) 


$27 «Statement list» «end statement» 


<program> 


<simole statement» 
¡<statement list> <simole statement> 


<statement list> 33 


Z= «statement label» END cr 


n 


e. e 
. . 


sena statement > 


«simple statement»? ::- «statement label> «exec state»? cr 


i*«statement label» 

«1f statement»? cr 
‚<staätement label> 

«gata statement» cr 
(«statement label» 

«def statement» cr 
¡<statement label» 

«rem statement» cr 
i«statement label» 


«extern Statement» cr 
¡<for statement» 
i«dim statement» 
(«exec state»? cr 
i€«if statement? cr 
i*data statement»? cr 
i«def statement» cr 
i*rem statement» cr 
iI*extern statement» cr 
se rror? cr 
on 
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Mee) <exec state> ::2 <read statement» 


(23) ¡<restore statement»? 
(24) ¡<open statement> 
(25) ı<close statement> 
(26) ı <input statement»? 
(27) ı<readf statement> 
(29) ı<orint statement> 
(30) ¡<write statement> 
021) ‚<stop statement> 
(32) ı<on statement> 
(33) ı<branch statement> 
(34) ¡<let statement> 
(35) i«call statement» 


D- Assignment Statements and Expressions 


The following syntax eauations are for properly 
formed assignment statements and expressions. The types of 
operands which are acceptable with each of the binary opera- 
moms is shown in Table I. The operand for the unary opera- 
tors + and = must be numeric quantities. The operand for 
the unary operator NOT must be a logical auantity. The 
grammar rules cause a check to be made, insuring that tne 


above semantic rules are followed. 


Checks are also made to insure that subscrioted 
variables are dimensioned before beina used, that the 
eomrect number of subscripts is provided, that each  sub- 
Beat 1S of type numeric, and that a subscripted variable 
is not used as a FOR loop index. Likewise, checks are make 
on the number and tyne of parameters in a function call to 
insure they match the function definition., In rule (496) the 


$3 €. 


' appears literally in the eauation. 


(36) <let statement> ::= <string let> 
(37) ¡“numeric let» 


40 





( 58) 
i5 9 ) 


(40) 
(41) 
(42) 
(43) 


(44) 
(45) 
(46) 


(47) 
(48) 
(49) 
(50) 
(51) 


(52) 
5») 
(54) 


(55) 
(56) 


57) 
(58) 
(59) 
(60) 
(61) 


(62) 
(63) 


(64) 


(85) 
(66) 


57) 
(68) 
169) 


(70) 
me) 


(72) 
(73) 


(74) 
in») 
(O) 


sz LET <string ref> = <string exp? 


I<strino ref> = <string exp? 


<string let> 


Eorna Tef? i: <string id? 
t <substring ref? 
i*«strina array ref» 
i*sarray Subst ref» 


«substring ref» 3:32 «string ref lo» «substring soec» 
«string ref lo» ::-7- «string id» ( 

«substring soec» ::7 «numeric exo? | «numeric exp» ) 
= <term> 


'<numeric exp> + <term> 
¡<numeric exp> - «term» 
i 
i 
' 


«numeric exp»? 33 


* «term» 
- «term» 


«term» 2:32 <primary> 
¡<term> x <primary> 
ı<term> / <orimary> 


<orimary> ::= <porimary element> 
ı<primary> T <orimary element> 


«primary element» 3: «numeric ref» 
i¡<number> 
i, <: f > 
ı( <numeric exp> ) 
i, <func ref> 


«numeric ref» ::- «numeric id» 
i*Xarray ref» 


«array ref» ::- «array ref head?» «numeric exo» ) 


(array ref head» ::-7 «array 1d» ( 
¡“array ref heag» «numeric exo» , 


<bi f> ::= <strina bif ref» «string exo» ) 
¡<numeric bif ref» «numeric exp> ) 
¡<numeric bif nparm> 


Ering Dif ref> ::2 <string bif> ( 
¡<numeric bif ref> <numeric exp> , 


Umeri Dif ref> 222 «numeric bif» ( 
(«numeric bif ref» «numeric exp» 


«string exp» :i- «strina ref» 


'<strina> 
«str num bif?» ( <numeric exp> ) 
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E 7) 
(78) 


E) 
(80) 


(81) 


(82) 


ES 5) 


(84) 
055) 


(86) 
(87) 
(88) 


(89) 
(90) 


91) 
(92) 
(93) 
(94) 


(95) 
(96) 
(97) 
(98) 
E») 
(100) 
(101) 
0102) 
E05) 


mumecrıc Bıf noarm? ::= <numeric bi f> 
«func ref» ::- «func ref head» <numeric exp> ) 


«func ref head» ::- «function 19d» ( 


i«func ref head» «numeric exp» , 


«string array ref?» ::7 <string ref lo» «numeric exp»? ) 


<sarray subst ref» ::7- <sarray subst lp» 
«substrina spec? 


«sarray subst lo» ::7- «string array ref» ( 


«numeric let» ::7- LET «numeric ref» = <numeric exo> 


«numeric ref» = «numeric exp»? 


«rel exo» ::7 «rel exo» XOR «rel term» 
'*rel exo» OR «rel term» 
'<rel term» 

«rel term» ::7 «rel term» AND «rel primary> 
'*rel primary»? 


«rel orimary» ::-7 «numeric exo» «rel» «numeric exp» 
íestommngwexpre€cre]|» «string exp» 
(( «rel exco» ) 
¡NOT ( «rel exo» ) 


I lI V UM 


A jJ A V A A V e- Il 


3 
(b 
o 
D 
(b 
O 
v 


C. Control Statements 


The control statements in extended Basic are de- 


fined by the following syntax equations: 


(109) 


E05) 


«for statement?» ::7 «statement label» «for clause» 
«Statement list» «next clause» 
(«for clause» «statement list» 
«next clause» 


«statement label» ::7 «number» 
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(106) 
IO 7 ) 


(108) 
09) 
(110) 
(111) 
ine) 
in 5) 


(114) 
E) 


16 ) 
(117) 
(118) 
iu 9 ) 


iuo ) 
ignei) 


T122) 


2123) 
(124) 


I5) 
Gizo) 
(lo) 


iuc) 
(129) 


ms 0 ) 
51) 


are) 
11553 ) 


(134) 
(135) 
(136) 


m7) 
(158) 


(139) 
(140) 


A ES 


<for head> :3:= 


<ne x 


<for 


it 


«else clause»? ::= 


“for mead> cr 
mtormmeac=  oOlEP <numeric exp» cr 
FOR <for init> TO <numeric exp> 
label> NEXT 

<numeric 
NEXT <numeric id> cr 
' NEXT cr 
|! statement 


<= «Statement 


t clause»? : 
Id? cr 


Jabel> NEXT cr 


init> 21:22 <nuymeric 1d> 2 <numeric exp> 


state> 
clause» 


«1f clause»? «exec 
i€«i1f clause» «else 
«exec state» 
Clause» «else clause» 

«1f statement» 
f head» «aoto^» «number» 
f clause» «number» 
f clause» «else clause» «number» 


Statement» 


«exec state» ELSE 


! «number» ELSE 
«1f clause» :?:- «1f head» THEN 
“re mead> s Z= IF «rel exp» 
‘IF END % <number> 
<stop statement» ::= STOP 
«rem statement» ::= REM 
«on statement> ::= <on head> <label> 
«on head? ::2 <on begin> 
i Xon head» «label» 
«on begin?» ::- ON «numeric expo?» «Xon case sel» 
¡ON «numeric exp? «on selector»? 
<on case sel> ::= GOSUB 
GO SUB 
Son selector» ::= [HEN 
¡ GOTO 
Sas t) O 
«label» $::-7 «number» 


«branch 


«gosub» «label» 
!<qotol> <ləabel> 
"RETURN 


statement> <:<= 
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E) <gosub> `: 


(142) ¡GO SUB 
MES) <gotol> ::= goto 
(144) <goto> ::= GOTO 
(145) ¡GO TO 
d. Declaration Statements 
All subscripted quantities in Basic should be 
declared prior to use in the program. The declaration 


statements 


in extended Basic are given oy the following syn- 


tax equations: 


(146) 
(147) 


(148) 
(149) 


(150) 
E51) 
ue ) 
s) 
(154) 
(155) 
(156) 


(157) 
(53) 


> 9 ) 
(160) 
(161) 
(162) 
(163) 
(164) 
TOS ) 
(166) 
(167) 


(168) 


¿sdim head» cr 
«dim head»? cr 


«dim statement» 


«dim head»? 


«dim sarray head» «numoer» ) 
I<dim head al!p» number» ) 


«sdim head» 


«dim head slo» «number» ) 


«sdim head» ( 


«dim sarray head» 


«dim head lp» 3:7 «statement label» DIM 
DAD 

"Ss head», 

Ceo mui dead», 

Same mead Siop> :3:= «dim head 


lo Serine.) a> ( 


Sune nmeaGgd alp? s2= <dim head lp> <numeric ia> ( 
¡<dim head alo> <number> , 


<data head> <number> 
'<data minus> «number» 
(«data head» «string» 


«data statement» 1;1- 


DATA 

¡“data head> «number» , 
«data minus?» «number»? , 
¡“data head» «string» , 


«gata head» : 


«data minus» ii- «data head» - 


«def statement» ?:- «def left part» - «numeric exp» 


«def left part» : DEF «def head» «numeric id» ) 


44 





(169) 
(170) 


gre 


should 


NouUt/output 


«gef head» 


e. 


be 


equations: 


Input/Output Statements 


The 


consistant 
exercised 


statements 


with 


«function 
(«def head» «numeric 


uonputo output 


the 


in 


the 


Nc 


( 


y 


statements 


ANSI 


use 


proposed 


o f 


ydo 3; 

in extended Basic 
standards. Care 
punctuatıon in 


as defined bv the followina syntax 


(171) «oben statement? ::= «open head» «number? ) <string> 
(172) «ooen head» ::= OPEN ( «number»? , 

Es) «read statement» *::- «read head» «numeric ref» 
(174) i*«read head?» «string ref» 

mera) «read head» ::- READ 

(176) t<read head> «numeric ref» , 

(177) ı<read head> <string ref> , 

als) «input statement? ::- «input head? <numeric ref> 
(179) ¡<input head> «string ref» 
meus <input head? ::= INPUT 

(181) ı <input head> <string exp> ; 

(182) (“nowt head <mumeric ref? y; 

(183) ¡<inout head? <string ref> , 

(184) <readf statement> ::= <readf head> <numeric ref» 
(185) i*readf head» «string ref»? 
(186) «readf head» ::- «read file» 

187) I<readf head> <numeric ref> , 

(188) ¡<readf head> «string ref» , 

Eu 9) «read file» ::z READ 4 «number» , «numeric exp»? ; 
(190) ¡READ Hf. «number»? ; 

EEUU «orint statement? ::* PRINT 

(192) «print head?» «numeric exo» 
(193) ı<orint head> «string exp»? 
(194) I<print head> <format element> 
(195) «print head» <numeric exp> ; 
(196) ı<print head?» «string exp? ; 
(197) i*Xorint head» «format element»? ; 
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2/98) 
08199 ) 
(200) 
(201) 
Ee) 
0203) 
(209) 


(205) 
(206) 


(207) 
(208) 
(209) 


e210 ) 
ea!) 


ue) 
ur) 


(214) 
(15) 
(216) 
(217) 


(218) 


Basic 
ton. 


other 


the followinq 


e19) 
wae 0 ) 
ges) 
222 ) 


223) 


(224) 


<print head> ::= PRINT 
i<orint head> «numeric exp»? , 
i*print head» «string exp» , 
'<print head? «format element» , 
I<porint head? «numeric exp? ; 
‚<print head?» «string exp» ; 
ı<print head» «format exp»? ; 
«write statement?» ??:-7 Xwrite head» «numeric exp» 
i*«write head» «string exp? 
«write head» :?-7 «write file> 
ı<write head? «numeric exo? , 
i*«write head» «stringa exo»? , 
<write file> ::= PRINT * <number> , «numeric exo» ; 


"PRINT 2 <number> 5 


<format element> ::= <simple format> 


«format left part» «numeric exo») 
Etormat left part» 22:= «numeric format» ( 
«restore statement» ::= RESTORE . 
IRANDOMIZE 


¡RANDOMIZE ( «numeric exr»? ) 


Euosesstatement» ::= CLOSE ( «number» ) 


fx External Statements 
Ihe external ana calil statements in extended 
are the basis of the uniqueness of this imolementa- 


These statements provide interface capability with 


system oroarams and orocegures. They are defined oy 


Syntax equations: 


«extern statement» i:- «extern head» 
EXTERN TYPE <numeric 1d» <parm gef> 
(EXTERN «numeric 1d? <parm def» 
EXTERN & TYPE «numeric 1d» 

«oarm def» 
extern head»? , 


«parm aef» 


extern head? i: 


«numeric 1d» 


«oarm def» `: 
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225) 
(226) 
(227) 


(228) 
M2 9) 
(230) 


251) 
51) 
232) 
0255) 
(234) 
0235) 


256) 
gs) 
e256 ) 
259 ) 
(240) 
(241) 
(242) 


(243) 


(244) 


<parm 


«cal! 


cal] 


«cal! 


«call 


head? 


Statement» 


head» 


nhead» 


shead> 


(x 


( 


«call head» 
usc 30] med» 
icc dec» 
i«call head» 
i*«call head» 
(«call head» 


«call 


<cal) 
i*call 
scali 
i«call 
ı<call 
«call 


CAEL 


CALL 


nhead> 


nhead» ( 
shead> = 


head» 
head» 
head» 
head»? 


«nume 


«string ref» 
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<parm head> TYPE 
<parm head» & TYPE 


i«parm head» TYPE 
ea head? & TYPE 


«numeric 
<numeric 


<numeric exp> 


10> ) 


<string exp> 
& «numeric 


ar 
id» ( 


«numeric exo» , 


«array 
«etr nc 
& «numeric 


pacc pd» 


f 


19> , 


id» ) 





Table 


Permissable Variable Types 


eteino 
string tyoe 1 
numeric error 


type | operands 


>= 
<> 


(assignment) 


I VA A 
u 
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1 


with Binary Operators 


numeric 
error 
l, 


type type de 


type ec operands 


+ T 

= and 
* OIR 
/ xor 





I. RECOMMENDATIONS FOR FUTURE DEVELOPMENTS 


A number of acditional extensions to this Basic 
languaae could be made. These include format tec 
input/output, a TRACE statement for debuagina» additional 
strina processing features» scientific notation, and random 


Bccess for external files. 


Basic orocessors have traditionally implemented format- 
ted  incut/outout by modifying the print statement as shown 
below: 

PRINT USING «format string? ; <exoression> 
EN f*ormat string conta)ns a description of the format ¡nto 
which the values in the expression list are to be placed. 
This might be implemented using the PRINTF routine in tne 
UNIX Eer aorty or by allowing the user to directly use PRINTF 


meeethe CALL and EXTERN statements. 


ACE ınstruetion, similar to that orovided in many 
COBOL implementations, would list the source program line 
numbers as each statement was executed and optionally print 
the current values of selected variadoles. An accompanying 
UNTRACE statement would disable the trace. Dna s" Ucouddg?- be 


easily implemented usina flaas. 


Adduomalestpang Operators could include a search 


Function which woula determine the position of one string 
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within another, and a substring replacement operation which 
would replace a substring. -with another (possibly null) 
string. String concatenation could be implemented for use 
Ewbuilding strings by buffered input/outout and using the 


UNIX routines GETC and PUTC. 


Random access to elements of external files would be 
enhancing for file management» but would not greatly in- 
crease the flexibility of the existing file manacement 
memmoas used in araphics work. This might be accomplished 
by creatina an array of dore vectors at the pDeqinming of 
each external file. Each vector would contain the beginning 


address of each record and the length of the record. 


Scientific notation would enhance numeric output by ex- 
pamdinogo the range of numbers which could be comfortably 


printed on an output paoqe. 
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Inn EDS ONIS 


[he extended Basic compiler presented in this thesis is 
a working software package. It has demonstrated that it is 
capaple of performing araphics work in the Naval Postgradu- 
ate School Computer Laboratory, and will provide a measur- 
able improvement to graphics efforts of both Computer Sci- 
ence and non~Computer Science students than was previously 
afforded by the UNIX system library of programming 


languaaes. 


Improvements noted in the Recommendations section qo 
not represent al! cossible imorovements, cut only those 
developed or generatec durina development and testing of 


this Basic comoiler. 
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APPENDIX I - EXTENDED BASIC LANGUAGE MANUAL 


Elements of extended Basic are listed in alphabetical 
order in this section of the thesis. A synopsis of eacn 
element is given, followed by a descriotion and examples of 
its use. The intent is to provide a reference for the 
features of this implementation of BASIC and not to teach 


the BASIC languaqe. 


wer oora consists of one or more properly formed ex- 
tended Basic statements. An END statement, which must be 
present, terminates the orogqram, ang additional Statements 
are ignored. The ASCII character subset, consisting of al- 
ohanumerics and the scecified soecia! characters, is accept- 


ed. 


In this section, the "synopsis" oresents the general 
form of the element. Square brackets», Í[], denote an ootion- 
al feature, while braces, (), indicate that the enclosed 
section may be reoeated zero or more times. Terms enclosed 
in <> are either non-terminal elements of the lanaquage, 
which are further defined in this section, or terminal svm- 
bols. All special characters and capitalized words are ter- 


minal symools. 
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ELEMENT: 


ABS predefined function 


SYNOPSIS: 


ABS ( «expression» ) 


DESCRIPTION: 
The ABS function returns the absolute value of the 
<expresston>. The argument should evaluate to a 
floatino point number. 

ER AMPLES: 
ABS(X) 


ABS(X*Y) 
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ELEMENT: 


ASC predefined function 


ErNOPSIS: 


ASC ( <expression> ) 


BESERTIPTION: 
Ihe ASC function returns the ASCII numeric value of 
the first character of the <expression>, The argument 
should evaluate to a string. 

EXAMPLES: 
ASC(AB) 


ASC("X") 
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ATAN 
ELEMENT: 


ATAN predefined function 


SYNOPSIS: 


ATAN ( <expression> ) 


DESCRIPTION: 
The ATAN function returns the arctanaent of the <ex- 


pression». The arauúment should evaluate to a floating 
pount number. 


EXAMPLES: 
ATAN(X) 


ATANCSQRTCSIN(CX))) 


PROGRAMMING NOTE: 


Al] other inverse trigonometric functions nay be com- 
puted from the arctangent usina simple iaentities. 
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CALL 


ELEMENT: 
CALL statement 
SYNOPSIS: 
(<l|inme number»] CALL ( <variable> = 1] 
«identifier» [ ( <exoression> 
(, <expression>) )) 
DESCRIPTION: 


The CALL statement references an externally defined C 
orocedure or function. The ootional <variable> may be 
either a numeric identifier or a string reference. 


The 


CALL <identifier> may be up to 9 characters in 


length. 1f the «variable» is present», then the <iden- 
tifier> references a function and returns a value. ef 
the <variable> is absent, the <identifier> references 
a procedure and returns no value. 


A CALL statement should be preceeded by an EXTERN 
Statement defining the form and nature of the «1den- 
tYifier>, 


A CALL statement may have an infinite number of argu- 


ments which should each be valid <expressions> 
evaluating to numeric or character values. Arguments 
may further evaluate to array pointers 1f oreviously 


declared as such in the EXTERN statement. If the ar- 
gument VS declared to be 0f type char. then the. arou- 


ment 


value may consist of one character. To Dass a 


string of characters as an argument, the araument may 
MERO type k char, which jimolies a vector of  charac- 


ters, 


or a character string. 


If a CALL statement has no arguments, then the entire 
argument list may be omitted from the statement. 


EXAMPLES: 


CALL 


Call 


cal] 


CALL 


call 


j = test! ("test X") \ 
sink( ship ) 

a5(3,5) - strg( less ) 

list 


movabs (x,y) 
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PROGRAMMING NOTE: 


<identifiers> may be uo to nine characters in lenath. 
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CHAS 
ELEMENT: 


CHR$ predefined function 


SYNOPSIS: 


CHR$ ( «exoression? ) 


DESCRIPTION: 
jo ip function returns a character string of length 
i consisting of the character whose ASCII equivalent 
is the <exoression> truncated to an integer modulo 
P28. The argument may evaluate to a floating ooint 
number. 

EXAMPLES: 
CHR$(A) 
nie (12) 


Mme eC {(AF+B/C)*SIN(X)) 


PROGRAMMING NOTE: 
CHR$ can be used to send the standard ASCII control 
characters such as a formfeed to the output device. 


The following statement would accomplish this: 


PRINT CHR$(10) 
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CLOSE 
ELEMENT: 


CLOSE statement 


SYNOPSIS: 


Kenne number?! CLOSE («constant») 


DESCRIPTION: 


The CLOSE statement causes the file specified by its 
<constant> tombe closed. Before the file may oe 
referenced again it shoula be reopened using an OPEN 


Statement. 


A terminal error occurs if the specifiea file has not 
previously appeared in an OPEN statement. 


EXAMPLES: 
EEGSe (1) 


PROGRAMMING NOTE: 


On normal completion of a oroaram all ooen files are 
closed. pf the program terminates abnormally it iS 


possible that files created by the oroqram may De 
lost. 


E 





mw 


LUE 





ELEMENT: 


COL 


COL predefined function 


SYNOPSIS: 


COL ( «expression»? ) 


BESERTIPTION: 
The COL function 
ic output. Tne 
eluding the sign 
The COL function 
ment. 

EXAMPLES: 
print COL(12) 


orint COL(ixj) 


defines the column width for a numer- 
default width value is 10 digits, in- 
and the decimal point. 


should be used only in a PRINT state- 
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«constant» 
ELEMENT: 


<eonstant> 


ENNOPSIS: 
[Ssian>] «integer» [.] ( <integer> ] 


("] «character string» (")] 


DESCRIPTION: 


A «constant? may be either a numeric constant cr 3 
Ana constant. All numeric constants are stored as 
MISS tina pont numbers. Strings may contain anv ASCII 
character except >» which may be reoresented as >. 


Numeric constants may be either a signed or unsigned 
integer or decimal number. String constants may be 
osto 259 characters im length. Strings entered from 
the console for an INPUT statement may not contain 
quotes, however, a double auote or a newline may be 
Used to terminate a string during INPUT or READ. 
Strings entered from a data statement should oe en- 
closed in quotes. since they are found 1n the orogram. 
Strinas read from a file may not contain quotes. 


ERZAMPLES: 
10 


E:90.75659 


"THIS IS THE ANSWER" 


PROGRAMMING NOTE: 
The line continuation character (d) may not be used in 


mew orogram for carrying string constants to another 
line. 
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COS 
ELEMENT: 


COS predefined function 


ENMIOPSIS: 


COS( «expression? ) 


DESCRIPTION: 
U S a function which returns the cosine of the <ex- 
pression». The argument should evaluate to a floating 
point number expressed in radians. 

EXAMPLES: 
Bis (8 ) 


ENS CSQRTCX-TY)) 
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COSH 
ELEMENT: 


COSH predefined function 


SYNOPSIS: 


COSH ( <exnression> ) 


BESERIPTION: 
F iS a function which returns the hyperbolic cosine 
of the <exoression>. The argument shoulc evaluate to 
a floating sont number. 

EXAMPLES: 
COSH(X) 


musHuoxTet(te) 
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DATA 
ELEMENT: 


DATA statement 


EnNOPSIS: 


ce nümber>) DATA <comstant> {, <constant>} 


DESCRIPTION: 


DATA statements define floating point and string con- 
stants which are assigned to variables using a READ 
statement. Any number of DATA statements may occur in 
a program. Strings and numeric elements are stored 
separately. The ordering of string and number ele- 
ments in a data statement need not match the ordering 
in the corresponding read statement. Tne first  occu- 
rance of an element type will be read when demandec. 
The constants are stored consecutively for each type 
in a data area as they əpoear in tne proaram and are 
not syntax checked by the comoiler. Cheamacterest ri acs 
snould be enclosed in quotes. Data elements should be 
Separated by commas. 


Should either type of data be exhausted, a restore for 


that type only is generated. If a type 1s requested 
when no data is defined, a terminal error results. 


EXAMPLES: 
MUDA TA 10.0-11.72,100 


DATA “This is a Strinda pom Uso, rhe End. 


PROGRAMMING MOTE: 


me RESTORE command may be used to rereag a data line. 
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DEF 
ELEMENT: 


DEF statement 


ENNOPSIS: 


(«line number») DEF «function name» («variaole» 
(, <variable>)) == «expression»? 


DESCRIPTION: 
The DEF statement specifies a user defined P ure tuyo n 


which returns a floating boint number. One or more 
arguments are passed to tne function and are used in 


evaluating the expression. The values may be in 
floating point form. Recursive calls are not oermit- 
ted. 


The <expresston> in the define statement may reference 
«variables?» other than the dummy arguments, in whicn 
case the current value of the <variable> is used in 
evaluating the «exoresss!on»?. 
The first two alohanumerics of the <function name> 
Should be FN, Fn, fN or fn. The <function name> may 
not exceed a total of four characters. 

EXAMPLES: 
EUSDEF FNACK,Y) = X + Y - A 


Deb wee CA, GB) SA + B = FNA(A;,5B) + D 
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DEG 
ELEMENT 


DEG oredefined function 


SYNOPSIS: 


DEG ( «expression» ) 


DESCRIPTION: 
MICNDESD TuUMettome@converts the floating point value of 


the expression»? into dearees. The <expression> 
should evaluate to a floeting point value in radians. 


EXAMPLES: 


DEGT( 5.14159 * j ) 
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DIM 
ELEMENT: 


DIM statement 


ENNOPSIS: 


1) («line number») DIM <ioentifjier> (<subscript list>) 
(,«identifier» («subscriot list»)) 


Q) («line number»] DIM «identifier» («constant») 
| ([ («*subscript list») ] 
{,<identifier> («constant») 
[ecsesubseriptocivst») 1) 


EESERIPTION: 


The dimension statement statically allocates space for 
floating point or string arrays. String array ele- 
ments may be of any length up to 32767 characters. 


(ring array lenoth should be specified. Initially, 
all floating point arrays are set to zero and all 
strina arrays are null strings. An array may be 


dimensioned explicitly? no default ootions are provid- 
ed except for string arrays which default to 1 element 
Mine <subseriet Jist> is absent. Arrays are stored 
in row major order. fhe <subscript list> may consist 
of integers. All subscripts have a lower bound of 0) 
and an upoer bound of n, for a total of ntl elements. 


The type 1 DIM statement above refers specifically to 
an array of numeric elements. Type 2 refers to string 
arrays. Both types of arrays may be combined in one 
DIM statement, however all the required elements in 
the synopsis may be oresent for each tvoe. 


«constant» may be included for all strina arrays and 
may not be oresent for floating point arrays. String 
array elements point to vectors of character Strings 
with a maximum number of characters, or string lenath,. 
equal to «constant». The «subscript list» for’ a 
string array may not have more than one elerent. 
EXAMPLES: 
DIM A(10,20), B(10) 


DR 53(2)(5S);C(7) 
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END 
ELEMENT: 


END statement 


SYNOPSIS: 


[<] ine number»] END 


BESERTPTION: 
An END statement indicates the end of the Source Pro- 
gram. If any statments follow the END statement they 
are ignored. 

EXAMPLES: 
10 END 


END 


PROGRAMMING NOTES 
If a STOP statement does not preceed an END statement 


Somewhere in the program, a STOP statement 1s automat- 
ically inserted before the END statement. 
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EIEMENT : 


«exec statement» 


SINOPSIS: 


(«line 
[<line 
[<] ine 
{<line 
(«line 
[<line 
[<line 
[<] ine 
[<] ine 
[<] ine 
(«line 
(«line 
(<line 
[<] ine 
(<line 
(<line 
[<] ine 
(«line 
[<lıne 


DESCRIPTION: 


TOTE: 


An <exec statement> 
statement 


number»] 
number»] 
number»] 
number>)] 
number»] 
number»] 
number»] 
number>] 
number»] 
number»] 
number»] 
number»] 
number>) 
number>] 
number>] 
number>] 
number>] 
number>] 
number>] 


the program. 


See <statement>, 


in Ən IF Statement construct, 
ments» may appear as 


«exec statement» 


CALL statement «cr» 
CLOSE statement <cr> 
END statement «cr» 
EXTERN statement «cr» 
GOSUB statement «cr» 
GOTO statement «cr» 
INPUT statement <cr> 
LET statement <cr> 
NEXT statement <cr> 

ON statement «cr»? 

OPEN statement «cr» 
PRINT statement «cr» 
PRINT # statement «cr» 
RANDOMIZE statement <cr> 
READ statement <cr> 
READ 28 statement «cr» 
RESTORE statement <cr> 
RETURN statement <cr> 
STOP statement <cr> 


executable 
«exec 5tate- 
throuahout 


is the only allowable 


<simole statements> 
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en 


EXP 
ELEMENT: 


EXP predefined function 


EMNOPSIS: 


EXP ( «expression»? ) 


ESSCRIPTION: 
DIN OPoftumetyon returns e (2.71828....) raised to the 
power of the <expression>. The araument should evalu- 
ate to a floating point number. 

EXAMPLES: 


EXP (X) 


EXP(LOG(X)) 
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CEMENT: 


«expression? 


DESCRIPTION: 


«expression»? 


Exoressions consist of algebraic combinations of vari- 


hierarchy of 


<>. 72, ‘= 


ables, constants, and operators. The 
operators is: 

1) () 

2) T 

3) xy Y 

4) t, >; unary t, unary = 

5) relational ops <, <=, >, >=, 2, 

AE) Gly GE, EGYNE 

6) NOT(<expresston>) 

7D AND 

8) OR, XOR 


Relational operators result a 0 | f 


false and 


nonzero (1) if true. String variables may be operated 


on only by relational ooerators. Mixed 
numeric comparisons are not permitted. 


The three types of expressions are strina, 
and boolean. 

EXAMPLES: 
Et Y 


(A <= B) OR (CS > D$) Z (A = B AMD D) 
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EXTERN 
ELEMENT: 


EXTERN statement 


(«line number»] EXTERN («type»] «identifier?» [ (<type> 
(, «type» ))] 
BESERTPTION: 
The EXTERN statement declares the type of procedure or 
Function referencea by the «identifier»? ino CALL 
Statement. The «identifier» is from an externally de- 
fined library and cannot be internally reoefined by 
the user. The EXTERN statement should preceegd, and 
zvsappeanr at any point ori3or to, the CALL statement. 


If the first optional «type» is missing, then that 
<type> defaults to integer. 


The five varieties of «tyoe» are inteaer, float, dou- 
ble, char and addr. These types may alternately be 
declared as arrays bY preceeding the type by £, as in 
& integer, & float, & double, & char and à adar. 
The EXTERN statement may declare an infinite number of 
eanguments for tne procedure or function. 

EXAMPLES: 
extern ginittíinteoer) 
extern integer move(integer,1nteaer) 
extern & char Amt( & float, R char) 


extern cerase( ) 


extern newpag 
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FOR 
ELEMENT: 


FOR statement 


SYNOPSIS: 


(«line number»] FOR «index? 7 «expression?» TO 
«expression» [STEP <expression>]) 
«statement list» 

(«line number»] NEXT («index») 


MESCRIPTION: 


Execution of all statements between the FOR statement 
and its correspendina NEXT statement iS repeated until 
the indqexing9 variable reaches the exit criteria. Tur 
the step is positive, the loop exit criteria is that 
the index exceeds the value of the TC «expression». 
If the steo is negative, the index should be less than 
the TO «expression» for the exit criteria to be met, 


The «index?» may be an unsubscripted variable and 1s 
initialiy set to the value of the first <exoression>. 
If the exit criteria as met on initial entry, Ù execu" 
Hons of the loop are performed. If the SIEP clause 


is omitted, a default value of l| is assumed. A step 
of 0 may be useq to loop 1ndefinitely. 


FC AMPLES: 
Gs = 1 TO 10 STEP 3 
mor INDX = J*K=t TO LO*SIN(X) 


meet = 1 TO 2 STEP 0 
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<function name> 


ELEMENT: 


<function name> 


SYNOPSIS: 


FN<identifier> or fn<identifier> 


DESCRIPTION: 


Any <identifier> starting with fn, fN; Aisi op ra 
refers to a user-defined function. Vive =< ft umic t 10m 
name> should appear in a DEF statement prior to  ab- 
pearing in an <expressijion>. 


There may not be any spaces between the FN or fn and 
the «identifier». 


EXAMPLES: 


FNA(x) 7 xf?O 


fnAr(i,j) = ik) 
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GOSUB 
EBFEMENT: 


GOSUB statement 


SYNOPSIS: 
[<line number>] GOSUB <line number> 
[<line number>] GO SUB <line number> 

DESCRIPTION: 
The address of the next sequential iastruction 1S 
Saved on the run-time stack, and “eont ro) is 
transferred to the subroutine labeled with the «line 
poumber» following the GOSUB or GO SUC. 

EXAMPLES: I 
10 GOSUB 300 


GO SUB 100 
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GOTO 
ELEMENT: 


GOTO statement 


EXNOPSIS: 
[«1 ine number») GOTO «line number» 


(«line number»] GO TO «line number» 


DESCRIPTION: 
Execution continues at the statement labeled with the 
<line number> following the GOTO or GO TO. 

EXAMPLES: 
100 GOTO 50 


GO TO 10 
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<identifier> 
ELEMENT: 


<identifier?> 


SYNOPSIS: 


<letter> Yí «letter» or «number?» y> [ $ ] 


BESCRIPTION: 
An identifier begins with an alphabetic character fol- 
lowed by three alphanumeric characters. If the second 
or third character is a dollar sian the associated 


variable J S=; of type strina, otherwise it 1s Of type 
floating point. 


EXAMPLES: 
Á 
BS 


Xy 6 
PROGRAMMING MOTE: 


All non-reserved identifiers may consist of any mix- 
ture of upper and lower case letters and numerics. 
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IF 
ELEMENT: 


IF statement 


SYNOPSIS: 
[<line number»] IF «expression?» GO TO «line number» 
(«line number>] IF «exoression?» TIHEN «exec statement» 


(«1ine number»] IF <exoression> THEN «exec statement» 
ELSE «exec statement» 
or 
ELSE IF statement 


DESCRIPTION: 


If the value of the <exoression> is not 0; the follow- 


Eng occurs: 
1) the GOTO causes an unconditional branch to 


<line number>, or 
e) the «exec statement» followina the THEN is 


executed. 
If the value of the «expression»? is 0, the following 
occurs: 

1) either the «exec statement»? or the IF state- 
ment following the ELSE is executed, or 

e) the next sequential statement in the proaram 
is executed. 


EXAMPLES: 
FEAS < B$ THEN X= Yx*Z 


IF (A$<B5) AND (C OR D) GO TO 300 


BEEJ AND K THEN GOTO 11 ELSE GOTO te 


PROGRAMMING NOTE: 


The line continuation symbol (ad) may be used following 
the THEN or ELSE symbols to produce nore readable 


code: 
if x 2 y theng » 
z = z t 1 9 
else a 
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INPUT 
ELEMENT: 


INPUT statement 


SYNOPSIS: 
[<line number>] INPUT [«4promot string» ;] 
«variable» (1, «variable» ) 


{, <prompt string?; <variable> 
{, <variable>)) 


DESCRIPTION: 

The <promot string>, if present» is "printed on the 
console. A prompt string may be followed by a semi- 
colon. A line of inout data is read from the console 
and assigned to the variables as they appear in the 
variable list. Data items preceedea by prompt strings 
should be separated by a carriaae return. Strinas may 
not be enclosed in quotation marks. 


EXAMPLES: 
FO INPUT A,B 


NUBE SIZE OF ARRAY? ; N, "DEFAULT VALUE?"; X 
POPOTE AC CUES? OI ACLI)J,BCI)CCACI)) 


jnBut233,.3(1) 
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INT 
ELEMENT: 


INT oredefined function 


EXNOPSIS: 


INT ( «expression» ) 


DESCRIPTION: 
The INT function returns the largest integer less than 
or eaual to the value of the «expression». The argu- 
ment should evaluate to a floating point number. 
EXAMPLES: 


INT CAMNT / 100) 


I l (5 * X * SIN(Y)I) 
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ELEMENT: 


LEN oredefined function 


SINOPSIS: 


LEN ( <expression> ) 


BESERIPTION: 
Dre LEN function returns the actual lenath 


String <expression> passed as an argument. 
returned if the argument is the null string. 


EXAMPLES: 


LENC(AS) 
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ELEMENT: 


LET statement 


SYNOPSIS: 


EET 


(«line number»] (LET) «variable» - «expression»? 
DESCRIPTION: 
The «expression» is evaluated and assigned to the 
«variable» appearing on the left side of the equal 
sian. The type of the «expression», either floating 
point or string, should match the tyoe of the <vari- 
able». 
EXAMPLES: 
100 LET A z B + C 
A 32 k YE X273) 
m W = (A<B) OR (C$>D$) 
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<line number> 


BEEMENT ; 


«1li1ne number» 


SYNOPSIS: 


Export» ( «digit» ) 


BESERIPTION: 
<line numbers> are ootional on all statements and are 
ignored by the compiler exceot when they appear in a 
SOUTO, GOSUB, or ON statement. In these cases, the 
«line number> should  apuear as the label of one and 
only one «statement? 1n the oroaram. 


«l1ne numbers» should be less than 32707. 


EXAMPLES: 
100 


4635 
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LOG 
ELEMENT: 


LOG predefined function 


ex NOPSIS: 


LOG ( <expression> ) 


DESCRIPTION: 
Muertos function returns the natural logarithm of the 
value of the «expression». The argument should evalu- 


ate to a non-zero floating ooint number. 


A negative value will oroduce undesirable results. 


EXAMPLES: 
WOG (x) 
LOG((A * B)/D) 


LOG10 - LOG(X)/LOG(10) 
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ELEMENT: 


MOD predefined function 


ENNOPSIS: 


MOD ( <expression> , <expression> 


DESCRIPTION: 
The MOD function evaluates the 
modulo the second «expression? 


pont value. Both <expressions> 
floating point numbers. 


EXAMPLES: 
MOD (x,y) : 


MOD (SQRT (LOG (X)), X + Y) 
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) 


tıest <exoress1on> 
and returns a float 
should evaluate to 





NEXT 
ELEMENT: 


MEXT statement 


SYNOPSIS: 


(<line number>) NEXT (<identifier>]) 


DESCRIPTION: 


A NEXT statement denotes the end of the closest  un- 
matched FOR statement. Mine optionəl <identifien> 
is present 1t should matcn the index variable of the 
FOR statement being terminated. The «line number»? of 
a NEXT statement may apoear in an ON or GOTO state- 
ment, in which case execution of the FOR looo contin- 
ues with the loop variables assuming their current 
values. 


Ale it 1S Oossible to branch into a loop, it 1s  un- 
desirable since the looo will not be properly execut- 
ed. Those statements occuring at and after the ad- 
dressed statement will be executed, and the NEXT 
statement will be ignored. 

EXAMPLES: 
JO NEXT 


NEXT I 
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ON 
ELEMENT: 


ON statement 


ENUDPSIS: 


(1) («line number»] ON «excression^» GOTO 
«line number» (, «line number») 


(2) («line number»] ON «expression» GO TO 
<line number» (, «line number»?! 


(3) («line numbper»] ON «expression» GOSUB 
«line numoer» (, «line number») 


(4) (<line number>] ON <exoression> GO SUb 
«line number» {, <line number>) 


(5) («line number»] ON <exoression> THEN 
<line number> (, «line number») 


EESERIPTION: 


The «expression», truncated to the nearest integer 
value, is used to select the «line number» at which 
execution will continue. If the «expression?» evalu- 
ates to |] the first «line number» is selected and so 
forth. In the case of an ON ... GOSUB statement the 
address of the next instruction becomes the return ad- 
dress. ON ... THEN produces the same results as DON 
ee. GO TO 


If the <expression> after truncating is less than one 
or greater than the number of «line numbers? in the 
list, the proaram continues with the next executable 
statement. 

EXAMPLES: 
MON. 1 GOTO 10, 20, 30, 40 


TAS SEO SUB 10, 1, 1, 10 
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OPEN 
ELEMENT: 


OPEN statement 


SYNOPSIS: 


(«11ne number>] OPEN (<file number>,<mode>) <file 
name> 


EESCRIPTION: 


The OPEN statement opens the «file number» for random 
access («mode» 0), reading (<mode> 1), writing (<mode> 
C)}, appending (<mode> 3). <file name> is a string of 
ASCII characters which represents the file specifiea 
by <file number>. A file 18 created by the first OPEN 
Statement for <file name> and <file nurber> with the 
write <mode> specified. Attempts to open a non= 
existant file for readina will cause a fatal error. 


Although the programmer may have uncountadly many 
files, limited only by the number of <file names> 
ave able; a maximum of 15 files may be open at any 
one time. <file numbers? are restricted to the se- 
quence 0-14 inclusively. No two <file numbers» for 
open files may be the same, but snould be unique for 
Fach open file. 


The <file number> will be usea tor I\nBUt/outrbut and 


eıasıng of fıles. It 1s the sole uniform reference 
between the above statements. 


EXAMPLES: 
WiToben (1,1) "datal" 


Goen (S9570) “fiela" 
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ELEMENT: 


PAGE 


PAGE oredefined function 


SYNOPSIS: 


PRINT PAGE 


DESCRIPTION: 


The PAGE function causes a new page command to be is- 
sued. The page print function should not be used on 
the console, since it will cause ungesirable effects 
on the CRT screen. 


EXAMPLES: 


print page 


PROGRAMMING NOTE: 


PRINT PAGE is the same as PRINT CHRS(10). Ist should 
be used in the same manner as TAB or CCL, wnich is 
only in a PRINT statement. 
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PRINT 
EIEEMENT: 


PRINT statement 


SYNOPSIS: 


[<line number>] PRINT <expression> <delim> 
{ <expression> <delim> } 


|. SCRIPTION: 


A PRINT statement senas the value of the expressions 
in the expression list to the console. A space 1s ao- 
pended to all numeric values and if the numeric item 
exceeds the right margin then the print buffer s 
dumped before the item is printed. The <delim> 
between the <expressions> may be either a comma or a 
semicolon. 


If the <delim> is a comma, the output of elements is 
sequential on an output Une. If the wsenicolon 1s 
used, the print buffer is dumped upon encountering the 
semicolon, and the next line is beaun. If, however, 
the semi-colon occurs at the end of the list of ele- 
ments to be printed» no newline is issued, and subse- 
quent orinting will begin at the next position on the 
line. 


EXAMPLES: 


PRINT AY B; "THE ANSWER IS": x 
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PRINT 
ELEMENT: 


PRINT # statement 


SYNOPSIS: 
(«1ine number»] PRINT 8 «file number»? ; 


«expression? (, <exoression>) 


BESERIPTION: 


PRINT 74 causes the output for a program to be directed 
to the indicated file number. Before a transaction 
may take place, a file should be ooenea using the OPEN 
Command with mode 2 or 3. The file ıs an external 
file in the user's directory. This allows the user to 
store program results externallv, and to eventuallv 
output the results to an external device, such as the 
line printer. 


EXAMPLES: 


PRINT 2 2 
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RAD 
ELEMENT: 


RAD predefined function 


` 


SYNOPSIS: 


RAD ( <expression> ) 


DESCRIPTION: 
The RAD function converts the value of the <expres- 


sion> into a radian value. The «expression» snoulo 
evaluate to a floating point numoer. 


EXAMPLES: 


RAD (180 * 1) 
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RANDOMIZE 
ELEMENT: 


RANDOMIZE statement 


ENNOPSIS: 


[<line number>]) RANDOMIZE [€<numeric expression>)] 


DESCRIPTION: 
A RANDOMIZE statement seeds the random number genera- 
tor with 1301, if mo <numeric expression> argument is 
supplied, and «numeric expression?» "modulo 2**15 - 1 if 
specified. 

BRAMPLES: 
10 RANDOMIZE 


RANDOMIZE (1015) 
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READ 
ELEMENT: 


READ statement 


SYNOPSIS: 


(«line number») READ 
«variable» 1, «variable» } 


BESERIPTION: 


A READ statement assions values to variables 1n the 
variable list from DATA statements. Fields may pe 
mlosgtng pont or string constants and are celimited 
Dy a comma. 


DATA statements are orocessed sequentially as they ao- 
pear in the program. An attemot to read past the ena 
of the last data statement produces an error, and au- 
tomatically generates an apcrcorıate RESTORE. àn at~- 
tempt to read non-existant data wıll oroduce a termi- 
wal error. 


IU MPLES: 


100 READ A,8,C$ 
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READ 
BEEMENT: 


READ # statement 


SYNOPSIS: 
(«line number»] READ £ <file numher> ; 
<variable> dl, <varianie>} 
DESCRIPTION: 
A READ # statement assians values to variables in the 
variable USt Values are read from  seauential 
records from the external file soecified Cv» the <file 
number». Fields may be floating point or strings. 
EXAMPLES: 


200 READ 2 1; PAYR, PAYO, HRSR, HRSO 


READ 2 2; x, y, zŠ 
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REM 
ELEMENT: 


REM statement 


SYNOPSIS: 
(«line number»] REM [<remark>] 


(«1ine number»] REMARK [<remark>] 


BESCRIPTION: 
A REM statement is ianored by tne compiler ana compi- 
lation continues with the statement following the next 
carriace return. The REM statement mav be used to do- 
Gument ^a  orogram. REM statements do nct affect tne 
size of program that may be comoiled or executed. 
r statement may De the object of either a GOTU or 
GOSUB statement. 

EXAMPLES: 
10 REM THIS IS A REMARK 


CO REMARK This is another remark. 
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reserved word list 
LEMENT: 


| 
| reserved word list 
. YNOPSIS: 


| «letter» ( «letter» ) [Í $ ] 


IEIRIPTION: 


The following words are reserved by extended Basic and 
may not be used as <identifiers>: 


ABS AND ASC ATAN CALL 
CHRS CLOSE COL cas COSH 
DATA DEF DEG DIM ELSE 
END EQ EXP FILE FOR 
GE GO GOSUB GOTO EN 
IF INPUT INT LE LEN 
LET COC LT MOD NE 
NEXT NOT ON OPEN OR 
PAGE PRINT RAD RANDOMIZE READ 
| REM RESTORE RETURN RND SIN 
SINH SQRT STEP STOP TAB 


| TAN THEN TO VAL 


Reserved words may be preceeded ana followed bv either 
x a special character or a Space. Spaces may not be en- 
| bedged within reserved words. Reserved word identif- 

iers should consist of upper or lowercase letters ax- 
| clusively. 


| ` 
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BEEMENT: 


RND predefined function 


IN NOPSIS: 
RND 
DESCRIPTION: 
The RND function generates a uniformly distributed 


random number between 0 and |. 


EXAMPLE: 


RND 
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ELEMENT: 


«simple statement» 


«simple statement» 


ETNOPSIS: 


[<line 
[<line 
[<line 
(«line 
[<] ine 
(«line 
(«line 


EESCRIPTION: 


number») 
number>] 
number>] 
number>] 
number>] 
number>] 
number»] 


DATA statement «cr» 
DEF statement «cr» 
DIM statement «cr» 
exec statement» «cr» 
FOR statement «cr» 

IF statement <Cr> 

REM statement <cr> 


All <simole statements> are elements of a E E 
list> and are executable. All <simole statements> ena 
with a carriage return <cr>. 
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SIN 
ELEMENT: 


SIN oredefined function 


ENOPSIS: 


SIN ( «expression»? ) 


EESCRIPTION: 
p Ms a predefined function which returns the sine of 
the <exoression>. The argument should evaluate to a 
Floating pont number in radians. 
EXAMPLES: 
SNE) 


SINCA = B/C) 
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SINH 
ELEMENT: 


SINH predefined function 


EXNOPSIS: 


SINH ( <exoression> ) 


EESCRIPTION: 
Ss ca function which Peturas the hyperbolic sine 
of the «expression». The argument should evaluate to 
"wtioatiQing point number. 

EXAMPLES: 
SINH(Y) 


SINH(B + C) 


1:005 


ELEMENT; 


special characters 


TT 


BESCRIPTION: 


The followina special characters are used by 


Basic: 


-- 1 D:-MS HVA NIT ox * s= — — — > 


Qo en tt 


Anv Special 


cept », 
EMIT yng. 


Special characters 


circumflex 

open parenthesis 
closed parenthesi1s 
open sauare bracket 
closed square bracket 
double quote 
asterisk 

pius 

minus 

slant 

semicolon 

less-than 
greater-than 

equal 

comma 

carriage return (new line) 
exclamation point 
nmerceontinyatıon 
tilde 

substring 

space 

Number sian 

dollar 

ampersand 

period 


Character in the ASCII character set 
may appear as N25 may appear 
characters otner than those listed 


extended 


ex- 
in a 


above» if they appear outside a string, will generate 


gan error. 
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SART 
ELEMENT: 


SORT predefined function 


EXNOPSIS: 


SQRT ( «expression? ) 


MESERIPTION: 


SQRT returns the sauare root of the absolute value of 


the «expression». The argument shoulo evaluate to a 


floating point number. Negative numbers will return 
0. 


EXAMPLES: 
SQRT (Y) 


DORT(OXTO t YT2) 





«statement list» 
ELEMENT: 


SaL enent st» 


SYNOPSIS: 


«simple statement» 
(«simole statement») 


DESCRIPTION: 
Á <statement list> is a sequence of executable state- 


ments. Ad extended Basic statements are terminated 
by a carriage return («cr»). 
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STOP 
ELEMENT: 


STOP statement 


SINOPSIS: 


[(<line number>] STOP 


BESCERIPTION: 
Upon execution of a «STOP statement», program execu- 
tion terminates and all open files are closed. The 
print buffer is emptied and control returns to the 
host system. Any number of STOP statements may appear 
a program. 


A STOP statement is appended to al] programs by the 
comoiler. 

EXAMPLES: 
10 STOP 


STOR 





<subscriot list» 
ELEMENT: 


«subscriot l!st» 


ENOPSIS: 


«integer? í, <integer> ) 


DESCRIPTION: 
A <subscriot list> may be used as part of a «OIM 
Statement» to specify the numoer of dimensions and ex- 
tent of each dimension of the array bei!ina declared or 
as Dart of a «suboscrioted variable» to indicate which 
element of an array is being referenced. 


Bements of a subscriot list in a VIM statement may be 
integers. 


eae LE S$ 


2010,20,20) 
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TAB 
ELEMENTI: 


TAB oredefined function 


NORSIS: 


TAB («expression») 


DESCRIPTION: 


TAB moves the text pointer to the absolute column in- 
dicated by the evaluated <exoress1on>. If the expres- 
sion evaluates to a value greater than 80, the TAB 


value 1s defaulted to <exoression> - 80 and will not 
Cause text to wrap around on the same line at the con- 
sole. 


EXAMPLES: 
TAB (10) 


TAB (i + j) 





TAN 
ELEMENT: 


TAN oredefined function 


SYNOPSIS: 


TAN ( <expression> ) 


DESCRIPTION: 
TAN is a function which returns the tangent of the ex- 
pression. The araument should evaluate to a floating 
point number in radians. 
If the <expression> is a multiple of bi/2 radians; the 
value returned 1s eoesisasrogest or Smallest number in 


the system, deoending upon which side of zero 1s ao- 
prooched by the function. 


EXAMPLES: 
10 TANCA) 


Int cx xcOSCY) ) 





VAL 


ELEMENT: 


VAL predefined function 


SYNOPSIS: 


VAL ( «expression» ) 


DESCRIPTION: 


The VAL function converts the string number in ASCII 
passed as a parameter into a floating point number. 
The <expression> should evaluate to a string. 


Conversion continues until a character is encountered 
mate 1S mot Oart of a Valid number or until the end of 
the string is encountered. The maximum length for a 
strino is ce digits. 


EXAMPLES: 


VAL(AB) 
vae( 5.789") 


VAL("This returns zero") 





<yarıable> 


ELEMENT: 


«variable»? 


EXNOPSIS: 
Eudemnmtaf3ier» {€ <subserpt list> )) 
«string identifier?» (<beginnina position» «string 
length») 

DESCRIPTION: 


A <variable> in extended Basic may either represent a 
mioating point number or oa string deoenging orn tre 
type of the «identifier». All string variables should 
appear in a DIM statement before being used as a 
«variable». 


String variables may be broken down into substring un- 
its by indicating string name, starting character and 
length of substring. The element <beginning position> 
is an «expression?» and refers to the first character 
position of the substrina. It should evaluate to a 


number. The element «stringa length?» is an <exores- 
sion> and should evaluate to a number. It is the ab- 
solute length of the substrina. otprinosemapacher 


@ougt begins at 1. 


EXAMPLES: 


X 
12203510) 
ABS(8,20) 


oI (x(I),Y(I),S(I-1)) 








APPENDIX II - OPERATING IN UNIX WITH EXTENDED BASIC 


mean 1s the shell commamd call for the extended Basic 
compiler Vat nes re OorP—bri/S0 UNIX “eomouter system at the Naval 
Postgraduate School. Ie jis of the form: 


lbaəax ([-Qü-C) (-S1]1 (=c] [=o] t-r)] ti-t] (-vl file ,.. 
The system call accepts three tyoes of arguments: 
Flaas defined below; an argument whose name ends with 
".0' which 1s taken to be a Basic source proaram and is com- 
Deia” arguments ending in '.o' which are taken as object 


files to be passed to the loader. 


The following flags are interpreted by ltax: 


- C Include the standard € library when loading the 
results of the compilatıon. 
- 5 Compile the named Basic poroaram, ana leave the 


assembly-lanauage output on a correspondina file 
Sur treed ".s'. 

ECC Include the araphics library for the CONOGRAPHICS 
graphics device. 


- r nella tie oraphıcs library for the RAMIEK graphics 
device. 
=O Compile the named Basic program, and leave the ob- 
mect= tise om a corresponding file suffixed ‘.co'. 
Et Include the ograohics library for the Tektronics 
graphic device. 
=- y Include the graphics liorary for the Vector General 


Graphics device. 


Whenever a araohics library 1s included for loaaing 
with the compiled source program, the standard C library is 
appended to the loader library list. Other arauments are 


taken to be either C compatible object programs, typically 
produced by an earlier C comoilations or perhaos libraries 
Bas tc or C compatible routines. These programs», together 
with the results of any specified compilation, are loaded 
(in the order given) to oroduce an executable Droaram with 
the name a.out. Libraries with the same file name as the 
Source program, and Which end in '.o', shoula not be used 
since they will not be retained upon creation of file.o by 
the executive program. 


Basic orograms may not be compiled for future use as 


libraries ‘since every comoliled Basic program includes a 
Bran" section, which drives the program. Thus additional 
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libraries may be created in the C language, compilea using 
the =c option for output as '.o' files, and then included in 
DL -o' form as object libraries for the Basic loader [9]. 


If the -o option is exercised, the Subsequent file -O 


may be invoked by LBAX and will return an executable a.out 
file. The effect of the -o option 1s to produce the source 
program in object code, which is fully loadable. Caution 


should be exercised to prevent usage of a -o option output 
as a library file. 


In addition to the features supported in standard 
Basic, a number of special features are found in the NPS 
version of extended Basic. These includes: 


call References an externallyy defined C languace 
ppnocedure or function. 

r Return a character string of length 1 qetermineo 
by the ASCII equivalent of an exoression arau- 
Ment. 

close Causes the externally referenced file to be 
closed. 

COl Soecifies column width of subseauently printed 
numeric values. 

dim Ín addition to numeric arrayS, permits creation 
Of atyvector of Strings- 

extern Declares type and arguments of external pro- 
cedure or function referenced by a call state- 
ment. 

len Returns the lenath of a string expression. 

mod Evaluates an expression with modulo arithmetic. 

open Causes the externally referenced file to be 
opened and indicates the mode for opening the 
file. 

read file Reads sequentially from the specified external 
file. 

val Converts a string of numbers to a floating point 
number: 

write file "rite sequentially into the specified external 
file. 


String manipulation 18 enhanced by use of substringing 
eomstrucets. Strinas may be  referred to in an Álgol-lik«e 
manner to produce portions for reading» writing, or altera- 
Bon. 


Since the UNIX environment does not support some of tne 
features of standard Basic without considerable system over- 
head (and ın some cases, not at all), the NPS version of ex- 
tended Basic uses slightly different, altnouch no less 
specific, formats in some statement formations. 





Importantly, the NPS extended Basic is a compiler ver- 
Buon; and is not interoretive. Thus» the use of line 
numbers with every statement is not mandatory or recommend- 
ed. Creation and subsequent editing of Programs is effected 
myeuse of the UNIX editor. Execution of the program is ac- 
complished through the a.out file, as with other UNIX com- 
pilers. 


The files which are used by the system while executing 
the shell executive program are: 


file.b input file 

hy le.0 object file 

file.s assembly"-language output 
a.out loaded output 
/usr/basic/baxcomo compiler 
Zusr/F*asic/bas)clib.a Basıca library 
/usr/qraoh/cont1e.a Oconoaraphics library 
Eusr/ograph/rmtksub.o RAMTEK library, part I 
/usr/graph/moresub.o RAMTEK librarv, part LII 
au-r/groaoh/vg.a Vector General library 
muse /7lio/libtea Tektronics library 

yas )1ibCc.2a C library; see section III 
/1ib/liba.a Assembler library used by some 


poutimesasnn lxbc.a and bas1cl1b.a 


The diagnostics produced by Basic itself are intended 
to be self explanatory. Occasionally messages may be pro- 
duced by the assembler or loader. Of these the most mysti- 

"n n 


fying are from the assembler, in particular "m", which means 
BENUUltiole-defined external symbo] (function or data). 
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AU RANES TINO TEA TENDED BASIC COMPILER 


PARSING RULES 


21 

fame ude "./bstruc.c" 
Ine lude  "./bfun.c" 
2) 


oe SIEP DATA DEF DIM ELSE END FOR GOSUB GO TO GOTO IF 
Ztoken NEXT ON PRINT READ REM RESTORE RETURN STOP THEN TO 
4token OPEN CLOSE SUB RANDOMIZE relspec OR XOR NOT AND 
token number numerictid arraytid stringeid functioneid 
token numericeformat string stringebif numericebif 

Ztoken simolee¢format strenumebif 

Ztoken EXTERN TYPE INPUT LET CALL 


pert '+' ‘a! 
mere tt ‘x' '/!' 
left 'tT' 


4% /x beginning of the rules section */ 
program: Statementelist endestatement 


? 


Statementelist? simpleestatement 


; statementelist simoleestatement 
, 


endestatement? statementelabel END '0 
j ENDO) 
, 


simpleestatement? 3statement*label exec*state '0 

' statementelabel ifestatement '0 
statement+label datat+statement '0 

' statementelabel defestaterent '0 

' statement*-laocel remestatement '0 

' statementelabel externestatement '0 
' forestatement 
dimestatement 
execestate '0 
' ifestatement '0 
' dataestatement '0 
' defestatement'0 


UEG 





remestatement '0 
externestatement '0 
error '0 

' 


=e 2 a ma mm 


execétstate : readestatement 

' restoreestatement 
openestatement 
closeestatement 
' inputestatement 
readfestatement 
: printestatement 
writeestatement 
' stootstatement 
onestatement 
branchestatement 
' letestatement 
callestatement 

, 


forestatement 


statementelabel fortclause statementelist 


nexteclause = (semant(41,3$2) ; ) 


È foreclause statementelist nexteclause 


{semant (41,31);)} 


, 
statementelabel: number = 
( semant (19,31); 
ıtrzmumbersläall.use '- 1) 


numbers$1) .usezd; } 


` 


label: number = 
( semant(20,$1); if (numbersí($1).use 
numbersí$1].usez1; } 


`. 


Boreclause: forehead '0 = 

( $858-forctr; semant(39,51):) 
forehead STEP numerictexp '0 
( $$-forctr; semant(40,£1);! 


` 


forehead: FOR foreinit TO numerictexo = { 
, 
nexteclause: Statementelabel NEXT numericeid '0 
NEXT numericeijid '0 
NEXT “0 


statementelabel NEXT '0 


A) a a. == 


foreinit: numericeid '=' numericrexp = 
(eva bl, aSGemant (Sop o1) 5} 


, 
dimestatement: sdimehead '0 


dimethead '0 


"o e rt 


0) 


$$=%$2;) 





dimehead: dim¢sarrayehead number ')' = 
( symtable($1].amt = 
(numbersí($2)]).numberitl1) * 
symtableí$1].lenath*l; } 
dim¢headealo number ')' = 
{ j¡zdovept++; dopelj)]=numbersi32) .numberi; 
symtable[31].diment+tt+; 
caldope($1,symtable($1)]).d!men,symtableií$11l.doov); } 


, 
dimehead: dimeheadeslo number')' = > = Os 
symtable($1J] .Jength=numbers [$2] .numberi;} 
, 
dimesarraythead! sdimehead '(' = 
( $$=5$1; symtablel3ll.typez)3; 


Symtablefí$1].dimenzl; ) 


dimeheadelp: statemente]labe]l DIM 
' DIM 

' sgimehead ',' 

' dimehead ',' 

, 

los dimeheadelp strinatid '(' ze ED) 

, 

dimeheadealp:t dimtheadelo numerictid '(' 
( $52$2; symtableí£t£2l.dimenzO0; 
symtable([5241l.tyoezl; 
symtable ($2) .dopvzdopept:;) 

' dimeheadealo number ',' = 

il $5=$1; symtablel$1) .diment+t+; 


j=zdovert++; dopeljlznumberslid2).numberi;) 


dimeheades 


, 


datarstatement: datathead number = 
("data ldataot++1= numbers S ol] .numberf, } 
! dataeminus number =i bP Gdataldataot t+) = 


-numbersí$2].numberf;) 

y datathead string = 
( strcooy(stia,datastopr); 
detester=+ stigl+l; } 


datatheaad: DATA 
datathead number ',' 
numbersí$2].numberf;)! 


(dataífaataot**])- 


' dataeminus number ',' = Maa te lada topr++l= 
-=numbers([52).numberf;) 
datachead string ',' = 


(strcopy(stia,datastor); datastor=tstig) +17} 


datatminus! dataehead '-' 
, 
defestatement: defelefteoart 'z* numerictexo z 
ísemant(37,31);) 
defelefteoart: DEF defthead numericeid ')' = 
{ semant (55,12), *$=$%$Oo; 


It 





'semant (56,52); defv-z0; ) 


defehead: functiontid *(* = { $3>31; 
symtable(51)] .dimenz0;) 
: defthead numericeid ',' = { $5z$1; 


symtable[$1)].lenath=5$é; 
symtable(51).diment*;) 
, 
readestatement: readehead numerice*ref = 
( semant(53,-1);) 
' readthead stringtref - 


{ semant(54,-1); } 


`. 


readthead: READ 
' readehead numerictref ',' = 
( semant(35,-1); } 
' readeheəd stringtref ud = 
{ semant(54,-1); } 
? 
restoretstatement: RESTORE = 


( semant(52,-1);) 


' RANDOMIZE = 
( semant(55,-1); ) 
' RANDOMIZE Lo? numerictexo a 


( semant (55,535); ) 


“=e 


opentstatement: openehead number ')' string 
{ semant (51,32);} 


openthead: OPENT (i Rumoer t, z 
{ j=numbers[33] .numberi; foaslj] = 1; 
semant(50,$35);) 


° 
, 


closeestatement: pEBSES' TL 'unwnber )' z 
{ j=numbers (53) .numberi; 
Notas ii = 0 rast; | 2 S o; 


semant (52,3%5);} 
, 
ıinputestatement: inputehead numericeref 
lí semant(48,-1); ) 
inputehead stringeref = 
l semant(149,-1); ) 


, 
inputehead: INPUT 
' input*head strinarexp 
{ semant(43+,-1); 
stigal=0; stialstigl++)=" '; 
stiglstigl1='0'; semant(14,j); 
semant(43,-1);) 
inputehead numericeref ',' = 
( semant(48,-1); ) 
inputehead strinatref ',' = 
( semant(49,-1); ) 


- 1, = 
, = 


ne 





readfestatement: readfehead numericeref = 
l semant(69,-1); semant(71,-1); } 
: readfehead stringrref = 
( semant (70,-1)7 semant(71,-7-1); ) 
f 
readfehead: readef1le 
readfehead nurericeref ',' 
semant (69, -1); } 
readfehead stringrref ',' = 
( semant (70,-1); ) 


° 
, 
. 
2 


readefile READ "s number ',' numeric*rexp ' 
( j=numbers(($3].numberi; 
if (fosi ==: 0) fds[j] = 2; 
semant(68,33)7 } 
' READ meen. number ';' = 
{ jenumbers [33] .numberi; 
VeCtastil =={"0) sfas lj) = 2; 


semant(68,53); } 


+ 


f 

printestatement: PRINT = 
l semant(44,-1);) 
printehead numericeexo = 
{ semant (42,71); semant (44,-1);) 
printehead stringtexo = 
{ semant (43,-1); semant (44,-1);) 
printehead formatrelement = 
( semant(44,-1); ) 
orintehead formatrelement ; 
printehead numerictexo a 
l semant (42,-1); } 
' printeheaəd stringtexp 

{ semant(43,-1)3 ) 


® 1 = 
, = 


=e 


erımtchead: PRINT 
' printethead numerictexpo ',' = 
{ semant (do,-1);) 
printehead string*exo ',' 
(semant(45,-1);) 
printehead formatrelement ',' 
printehead numericrexo ';' = 
l semant (42,-1); semant(44,-1);) 
; printehead stringtexo ';' z 
( semant(43,-1); semant (44,-1);) 


printehead formatrelement ; 


; 
writeestatement: writeechead numericeexo = 
{ semant(72,-1); semant(74,-1); } 
' writerhead stringrexpo = 
( semant(73,-1); semant(74,-1); ) 


`° 


writethead: writerfile 
writeehead numericrexp ',' = 
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{ semant (72,*-1); } 
' writethead stringtexo ',' = 
( semant(73,-1); ! 


, 


writeefile: PRINT une number ',' numeric*exp 
{ j=numbers[($3] .numberi; 
if(fds(j) == 0) fdslj) = o; 
semant(75,$3); } 
PRINT "2° number ';' = 
{ j=numbers [55] .numberi; 
fds SS 0) fdqdslj)] = 2; 


semant(75,$3); ) 
, 
formateelement: simpleeformat = 
( semant(62,-1); ) 
j format€lefte€eoart numerice€exo ')' 
{semant (53,31); } 


f 
formateleftepart: numericeformat '(' = 
(565 8 j) 
, 
ifestaterent: ifeclause exec*state = 
( semant(28,-1);! 
i ifeclause elsetclause execétstate 
l semant(29,-1); } 
' ifeclause elseeclause jfestatement 
i¡feheao goto number = 
{ semant(30,53);) 
' ifeclause number = 
l semant(16,-1); semant(30,32);) 
ifeclause elsetclause number 
( semant(16,-71)7; semant(30,53);) 


execestate ELSE - 

( semant(351,-1)7;) 

' number ELSE = 

í semant(16,-1)5 semant(30,51);) 


elserc]ause 


, 
ifeclause: ifeheaa THEN 
? 
1 fehead: IF releexp = 
{ semant(27,-1);} 
Ir END 'g' number 


Deo T 


- 


releexp: releexo XOR releterm - 
Í semant(56,+-1); } 
reltexp OR releterm = 


( semant(57,-1); } 
releterm 


`° _ m 


releterm: releterm AND rele€éprimary = 
( semant(58,-1); ) 


I 





i releprimary 
; 


releprimary: 


numeric*exp rel 


numeric*exp 


{ semant (25,32); } 


stringtexo rel stringtexp 


de - 


{ semant(26,32); ) 
Ep releexp  ')' 
i NOT releexo 
{semant (59,-1); } 
rel: (z! = { 552053 
: a =! = { $$=4;} 
' >’ =( $$=#=B;) 
: pec" A A 
' <=" i a 
' r s = = { $T=20;} 
i NS >? SID E | 
i E Tg! = { $$=4;} 
relspec = { $5251; } 
, 
stopestatement: STOP = 
{ semant(24,-1)7} 
remestatement: REM 


ontstatement: onthead label 
{ semant (23,-1);} 


, 
onthead: ontbegin 
ontheaa label ',' 


{ semant(22,=1);} 


. 
, 


ontbegin: ON numerictexp onecaseesel = 


(semant(21,0);) 


' ON numerictexp ontselector 


(semant(2l,-1);) 


o 
, 


emeselector: THEN 
: GOTO 
GO TO 
ontcasetsel: GOSUB 
' GO SUB 


branchtstatement: aosub label 
i gotol label 
' RETURN = 


{ semant(18,-1) 


loo 


5) 





Sosub: GOSU8 
{semant (17,-1);} 


GO 


SUB 


{semant (17,-1);} 


oe. vo 


goto 


Soto: GOTO 


l semant(16,-1)+) 


me Go T 


0 


{ semant (16,-1);} 


, 
letestateme 


stringelet: 


, 
stringrexp: 


, 
numericelet 


, 
numericrexp 


term: prım 
1 term 


DC 
è 
' 
, 


ary 


ty! 


string*let 
numeric*let 


LET stringeref 
í senant(15,-1);) 


SANOS 


strimseref "z' strinorexp = 


{ semant (15, -1);} 


stringeref 
string E 
{ semant (14,}), } 


strenumebif a numeric*exo Ep 


{semant (53,31); } 


LET numericeref '=' 
{ semant (13, -1);} 

numericeref '=' 
{ semant(13,71)7} 


term 


numericeexo 


numerictexo E 


numerictexp '+' term = 


( semant(9,-5);) 
numerictexp ' 
l semant(10,-4); 
!+' term 

( semant(11,-1); 
' term 

(semant(12,-71);) 


q ocn 0g ve ct 


orimary = 


l semant(7,-1);) 


' term 


( semənt 


primary: 


, 


t 


primary - 


(8, -2);5) 


primaryrelement 


primary 't' orimaryrelement = 


( semant(o,-71);! 


primaryrelement: numericeref 


number = 
{semant(3,51); 
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er 


m > 


numbersl(31).lusezls; 


) 





Sb 

'('! numericrexp ')' 
funceref = 
(semant(1,$1);) 


, 
numericeref: numericeid = 
{ semant(1,51)7} 
' gerayeref = 
lt semant(2,351);) 


`. 


arrayeref: arrayerefehead numerictexp ')' z 
( j-dfunaridpfunar--)*17; semant(45,32); 
if (Cj $= symtable($l] .dimen) 
error(symtable(51].symbol,msalól]); ) 
, 
arrayerefehead: arrayeid '(! = 
lt semant(1,51); 
$$=S$1l; dfunarl++dofunar)=0; ) 
| array*refcehead numeric*exo ',' = 
( S$S3=51- dfunarldofunar) +t? 
semant (45,52); ) 
, 
string*ref: stringeid = 
{semant (46,31); } 
! substringtref 
' stringrarrayeref 
ı sarraytesubsteref 
, 
stringrrefelo: stringeid '(' = 
{ semant (46,31); } 
substringrref: stringerefelo substringrspec 
; 
stringrarrayrref: stringtrefelp numerictexo ')' = 
{ if (symtablelf1l.tyoe != 3) 
error(svmtable($1].symbpol,msgag(81); 
semant(60,-21); ) 
; 
sarraytsubsteėeref: sarraytsubstelpo substringt*soec 
, 
Sarray*substelp: stringearrayeref '(' 
, 
substringespec?! numericeexp i 
( semant(61l1,-1);7 ) 


' t 


numerictexp ')' 


, 


pif: Serimnacoyrerer stringsexo ~“)? = 
{ if (dfunar([dofunar--1*1 $= symtable(Sl}] .dimen) 
{ 


error(symtable($11].symbol,msalol]); 
) 
semant(55,$1); ) 
: numerictbiferef numerictexo ')' = 
( if (dfunar(dofunar--])*1 !- symtaoleí($1i).dimen) 
( 


124 





error(symtable[($1].symbol,msald)); 


} 
{semant (53,31); } 
' numericebifenparm 
, 
merimacbdif¢ref: stringebif '(' = 
($$ - $1; dfunarí**dofunar]1z0; ) 
ı stringebiferef stringrref ',' = 
{ $$=S$lsdfunar (dofunar) ++; } 
momericebiferef : numerprcebif 'C' = 
{ $38 = $13; dfunar(**dpfunar) 2:0; ) 
numericebiferef: numerica. (” = 


UNTIL chums3ridoftumsr]*t*t; ) 

numericebifenparm: numerictbif = 
(semant (55,31); ) 

funceref« funcerefehead numeric*exp ')' 

( if (dfunar(dofunar--])*1 ! 


symtablel511.dimen) 


( 

error(symtable[51].symbol,msso([6] );/ 
} 

semant(34,41);} 


, 
funcerefehead: functioneid '(' = 
aaa ar do tunar]=07) 
fo funcerefeheag numerictexo ',' = 
(faena runs) S$5=31; } 


e 
, 


callestatement: callehead ')' = 
{ semant(66,51); ) 
callenhead = 
( semant(66,31); ) 

' callthead numerictexp ')' 
{ oncnt++; semant(63,31-onent); $35%:=51; 
semant(66,51); ) 

' callehead arrayriga !)' = 
l oncnt++5 semant(63,51-oncnt); 29251017 
semant(66,$1); ) 

' codenes3d o «-stemingcexp"" *)4 
( oncnt++; semant(65,$1-0oncnt); s =i; 
semant(66,31); } 

callehead '&' numericeid ')' = 
( oncnt++; semant(6j3,%1-oncnt); 33231; 
semant(66,51); } 


ne 


callehead: callenhead 0 = 
{ semant(64,-1); semant(63,51);, $3=31; } 
uu -ablbrenheag "=" numericeig '(' = 
{ semant(1,53); semant(63,53); 35 =53; ) 
' calleshead '=' pumericeidoo't' z 
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{ semant(1,53); semant(63,$3); 55 = $3; ) 


' callehead numerictexo IE = 
( oncnt++; semant(63,3l-oncent); 3T1-$17 ) 
~emcalliehesa  arrayeia ',' = 
¡A semant(63,$1-oncnt); pos ) 
' call*head stringtexo  ',' = 
( oncnt++; semant(65,$]-oncnt); Tor ) 
callehead LN numeric*id d = 
l oncnt++; semant(63,31l-oncnt); STZPIS ) 
, 
callenhead: CALL numericeid = 
{ semant(1,52); Tyee: ) 
, 
calleshead: CALL stringeref = 
( semant(67,-1); ) 
externe€statement: externthead 
, 
externthead: EXTERN TYPE numericeia oarmedef = 


{ symtadle($3] .lenath=%2e%2; 
symtaole [33] .dimen=oncnt; b$-$2*2; 
symtablefí$3].type = 10; oncntz0; ) 
' EXTERN numericeid parmedef = 
( symtable($2].lenoth=0; 
symtable([$2].dimenzoncnt; P$-0; 
symtable($2l.tyoe = 10; oncntz0; } 
EXTERN e TYPE numericeid parmedef 
( svmtable[$54).lenatnz$35*2*CDISP; 
symtable($4l.dimenzoncnt; $5=2%3*2+CDISP; 
symtablefí$dl.tyoe - 10; oncnt=0,; ) 
externehead ',' numericeid parmedef = 
{ symtable[($3).lenctn>=31; 
symtable[l33].dimen=oncnt; $$=51; oncnt=0; 
symtable($5!.type = 10; } 


A ps 

paprmehesad TYPE u) = 

{ oncnt++; jrzinsert ("ee"); 
symtableíjl.lenathz32*2; 
sSymtablel[jl.tvpe- -1; ) 
parmehead  '&' TOPEL 7)" = 
( oncnt*t; jzinsert("ee"); 
symtable[j;l.lengGthz$5*2*CDISP; 
symtableljl.typez -1; } 


Barmedef: 
i 
' 
' 


° 
, 


parmehead: y 
' parmethead TYPE ',' - 


Lob 





R 


AS A A 
symtable(j) -lenqth=S%e*e; 
symtableljl.typez -1; ) 
parmehead ‘'&' TYPE  ',' 
Monet, insertl ee”); 
symtableí(jl.lengthz$5*x2*CDISP; 
Symtableíjl.type- -1; } 


=e 


e 


aude "./bscan.c" 
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semantica,1) 


( int k^kl; 


Switch 


( 


Cose 
Cose 


Cose 
C ase 


Cose 


case 


case 


Cose 


(ca) 


l 
e 


ve ee 


OD 


9 ° 


10 


SEMANTIC ACTIONS 


Vo. Covi 


onam Movepozgd,—(r4)\n"ri)? return? 

I=symtableli).type; 

if (j == 0) 
error(symtableí(il.symbol,msat5)])); 

prp cob DUPCAUXn");j 

printf("mov $S0Xd,-(rü)Nn"); 

SE ist Oey UUPEAL Nn’ 71) ¢ 

return, 

orintf ("mov $NXd,-(rd)Nn",1); return; 

opa most (ru); frin")? 

cpm movf *Crad)*,frOüNn"); 

Or a bob] porn”), 

prnunthl dsn DcDOwNn )* 

j=temocnt++ % 20; 

Dai mov bl zd; = (ra)Nn", 

Semenov t tro, ~ rd) \n' ) 

return; 

y=temocntt+ Z 20; 

printf("movf *(rü)+,fri\n"); 

oia mov *Crda)+,fr0wm”"); 

O A Aa A ; 

poot mov blZ3y=(Fd)Nn"', 

printf("movf frO0,*(rü)\n") 

return, 

j=temocnt++ % 20; 

printf(  Umovf *(ra)+,frlNn”); 

SgriattG movi *Crd)4, fro\n")? 

BeNnett E G ToD I ERRORE]; 

A $0;trilNn"); 

Seiatt ( Grece\neme, ct \n 5 

opintf(' Sr. fa, eRROR\n Jy 

orintf("<runtime error attempted"); 

orintf("division by zero\\n\\0>"); 

DETAIL jj —evuemvne:Nn *); 

printf("divf frl,frO0Nn"); 

printf("mov $IZdad,=(rd)Nn" 1). 

printf("movf fr0,*(rd)Nn"); 

return; 

j=temocnt++ % 20; 

printf("movf *(rü)+,fri\n"); 

A o A *(rü)+,f#rO0Nn"”); 

orimtf("agdf frl,fr0Nn"); 

ponat mov SIZG,=>(rd3)Nñn”  )2 

Sriat el mover frUye(ray\n"); 

return: 

j^temocnt** X 20; 
ponnutemovt *erü))t*,frixn 7 


)3; 
; 


j); 
; 
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Gase 


GaSe 


case 


Cose 


Case 


Cas € 


Case 


C ose 


case 


case 


Case 


case 
case 


ea3se 


cose 


Ir: 


12: 


15: 


14; 


eo 


eos 


en 


rin movt (rU); fron")? 
gra (subf fri;fr0\n")? 


Da Move pie, —(r4)\a +i); 
ShimenG mov retry * Crd )\n"); 
return; 

jztemocnt++ % 20; 

prat moviecsoruü)*frONn"); 
Printf ("absf frONn"); 


printf(" "mov $I%3,/-(rd)Nnp"”, i); 


printf("movf 


return; 
J=temocnt++ 


pramtttomovf 


rO,*(r4)Nn"); 


% 20; 


*(r4)+,fr0innegf frOó0in"); 


DOTA (mov $TZd,=(ra)Nn", J); 
printf("movf 
return, 


NA movf 


r0.*(rajJAn"); 


*(rd)*,fr0ONn"); 


nati nov fro0,*(r4)trNno"); 
returns 
peru moe dr -umd)Nmbr- e2gfNn")5 
orto | I: 
orint: 
return, 


Beim wel Ob | 


«ZSNNO»Nn.evenNn",stig); 


mov $*o,;-(r8ü)Nn",stial); 


strmv\n"); 


Ds Der strmy \m dr 
returns 
Dial mo 
NASA 
DOES 
return», 


j=numbers(1] .numbert 
Siete omits 2c. Nae y) 
j=numbersfil.number1 
Ermt tt P dwNm yy a 
oncnt=0; 

printt("movtf 
Srimct @ mow ra 


erint tC loec 
Orit! (pot sim y 


Srita DNA: 


J f 


(1 


else 


ET) 


OS UI pil, 
OC"); return; 
DONDE), 


return, 


=e e un. 


return, 


*x(rd)*,frO0Nn"); 
frO,r3\n"); 
r5Nncmo $0,r$Nn"); 


dsl nme 


printf("jmp *8ëf(r3)Nn"); 


í 
orj 
or 


DSi rca”); 
Ano ST vmi ) 


orimtf("\n8:\n"); 
return; 


oncoatr+> 
Print O vmo: 


return; 


cmo $ZXZd /r5Nn"”",oncnt); 


Srimete woe IBN NA oy 
return, 
Deiat © p mceENDENNYnm")7 
return», 


printf("movf 
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x(rd)*t,frONn"); 





SE mon ARAN) rin"); 
A OY A si); 
animo m, früNn"); 
pru ccc m); : 
Prime (ecco COMPANY") 7 
DS oc, L LOMPAR\n"); 
return; 
case 260: orint olobi strcmoNn"); 
orint il isr ecystromo\n ) ; 
PrI I O moy S0, rSn" yia? 
or neto ene TO, (ran)? 
OCINE Olobi COMPAR\n”); 
Brin ss soc, COMFPARN\ A" )3 
returns 
case ¿ls 
Ocmmure est (cd) +\nbeq Ifin"); 
return, 
ae eo io Na N return, 
case 29: ORime fC Nong? Nm J; return: 
case 30: j;=numbers[i}.numberi; 
MESA NANA J );$ 
return, 
pase Sl: printf unp 9fNnwnd:Nn")5 return; 
case 52: printf mov SDATA-B.O , DAICNINn"); 
orin f mos SO [PDATA,SIPNEXTNn"); 
return; 
Gases 5s olobiedamrdreNm"); 
Bram er Zee, danrdeın.): return; 
Case SU: printf Sr oca VA Gl); return; 
essen oral Zi mas EXZENSTNRENZAENANNA", 1,1); 
returns 
case 36: symtablel[il.dimen++; 
kzi-symtablel[il.dimen; 
fonr ek jS jtt) 
(aot to mov teeirü) t fnnt); 
printftü moves ovsgre-opA)Nm*s 9; 
printf("movf frO,*(r4)*Nn"); 
} return}? 
eose 07 A O MONE o IA A AO de: 
rintf("mov $SZd,=(rdá)Nn”, ) 7 
Srinttl' movi, feu, * Crt) 4tN\n J; 
A AA NO NM d 7 
kzi-symtablel[il.dimen; 
fon (jk CIS ET 
symtable(jl.symbolf0]z'^'; 
return, 
case 58: printf("movf *(rd)+,frO0An"); 
orintf("mov S$SXgd,-(r4)*Nn",1); 
Ofint?( mover frü,*(rd)*Nn"); 
return, 
case 39; 
J= forc tri; 
orintf("movf *x(rd)+,frlin"); 
Opel mov sf léd,=(rd)\n', jJ> 
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pM nc mI xung rx^abr-- fX»); 
pP ne dienten) 
print f("mov bord, =-Cr4)\n",1)3 
a o IO AS 1) 
proumtti movf *(rdyr,frixm"); 
O SA 
kl-looknf(1.); 
f (kl == 1) ( kl-sinsertnr(1,1.); 
numbersíkll.lusez1; } 
pour c c adgdtoNxd.frovxn")s 
prlntf('imovf r0,*(pa)+Nn”, kl); 
DON (C Ui SP morafr0o0,frilNn') 
prar ecc nat F5ZdNn”, j); 
return; 

case 40: 
f=torct ret, 
grimmett “nov ret crt) +, freNnn ) 3 
orante mov sFi40,7Cra)\n", 3); 
Sitti MOV tf he, Cra) tNn" ) > 
ARAS AO A A e A a TA 
O RU O AO 
printi movi fel>,* (r4)+\n"); 
orint mov 5sS4d,y-Crd)xm" 31); 
A rut fron]? 
Dai NOAA mo): 
o o AN y jun) ) 3 
Crip G@rnov SFA = (rin); 
A PF Izd; = O 
potio movfc*(pd4)tfr2vm' 9; 
Stvat tC move CRA)? Pio), 
Seine. (mov * (ro etre ONG) 7 
pact aOd ta the stro Nm XX 
ara mov TrO7* 0rd) Nn) 
kl=]ooknt(0,); 
A S1)”U(kišzinsertnr(0,0.); 
numbers(kl].luse=1; } 
NA cano rod yt he Nm) 
OMI CCENN aIt efan LE 
BrintflvcemefströntriSmeftcein.); 
Bretter oe y NAN” j]; 
ri ntf("ijmo 5SfNnñnAn”U); 
A fro frian"), 
orint cfcchmni tia so): 
prymbt('xmnssxmwm 


returns, 

case 41: 
BEIDE mo HO aa O ONO y 1 , 1 ) 7 
return; 


Case J2: rint Seno! numotrXa");, 

case 42: printf("jsr pc,numptr\n"), 
returns 

Goose 353. 0rrattiis=oto6l stramprin”), 
prat ysrasce,stremo\n ); 
return, 








HS oo oo) LsmdmbNn')J; 
print f('ysrpcylindmoNm' ); 
return; 

cose 45: printf "movf *#(rd)+;frO0ONn"); 
print f£ft'nosfiffro0,=(rHd)Nn")7/ 
returns 

case 46: printf("mov 35%d,-(rd)\n",i); 
k=zsymtableli].length; 

Drintfl "mov Sore cra) Nh sk) 
returns 

case Ua orint coclobi.nbrrur,atofXn" )7 
DREINE IS" pcocnbrrednrwvin' 257 
Prine ee wor uec,atot Va )7 
Srinetc movin tru, * rd) +\A~); 
returns 

case, d9 orm. oglobliestrrdrmVa" 17 
Deimerevispaoce,sterdenn J 
return», 

case 50: printf("mov S$Zo,>(rd)Nn"U", 

numberslil.numberix2); 
returns 

case 51: 

ERC mor ii ra wwr-efxm)3 
printf( l: ASNO Ae vena St 10), 
printf("2* mov $Xo,.-(rd)Nn", 

numbersí(il.numberi*2); 
rir oo UPEuSsr-pcerüPENNmn TOS 
return; 

case S2 or int nov. imow=(r4JAn"+ 

numbersíil.numberi*2); 
orint f sa Tao CLOSE VA)» 
OIE sr pe, CLOSEAn Je 
return» 
case 53: 
switch(symtableli] .length) 
{ 
Gasser tery /eStdsca lino Frl and jsr pcoXx 
if(symtablefil.amt == 0) 
(printf salah! ASNA TG 
Symtableí1l.symbool); 
Symtable[il.amttt; ) 
epa nrc move teri tr)vmt 
PEINE SSCI OC SV s 
symtableí!1l.symbol); 
j^tempcntt* X 20; 
DAA mor Id m omlyxmt 1) 
orintf("movf frO,*(rd)Nn"); 
return, 
case 1: // ABS 
printf('movf ral roo ); 
prints PUNO 
printf("movf frO,*(rA4)Nn"); 
return; 
case 2: 
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f[symtablelil.amt == 0) 
Wp ote caia] 2S, ator. 5 
symtableí13].symbol); 

symtableíi)l.amtt**; ) 

Bine klei sr OCs 4S \n "+ 

symtaodleli}.symbol); 

Srimtto oss Noe,atof*Nn"); 

j=temocnt++ X 20; 

Beate moO vu bn, =P 4) Nin 21), 

Dive fe MOV f fror (ruin; 


return», 

case 3: 
if(symtableti).amt == 0) 
e SN o Lo A .Xsvwnt, 


symtableli].symbol), 
symtableí(i).amt**; } 
OPIATE i Sr EEOC ASAN" y 
symtadleli}.symnol); 
ztempcntrtrt 40205 
ERASE mov Sid,“ (rádlin", 3); 
PENA movi OS? AIN 
return; 
case 6: // chr5 unique because $ not valia 
Ey mas 
if(symtabletil.amt == 0) 
[opt ft sob om cpu 
symtableíi1).amt**; ) 
DIOS? u DEschr\n u 


return, 

case 8; 
if(symtable[il.amt == 0) 
Corint aloo] Z S NP: 2 

symtableli}).symool); 
symtable[il.amtt**; ) 
crimtfi ncc 5s m 7 
sSymtableí[il.symbol); 

returns 

defaults return; 
} 

case 544 


A oa nce Na), 
Shine t | 31S DesdatrdreNn®), 
return; 
Case 55: 
if (jù == =-=) 
orint f "movi 51501; rONn"U); 
else 
Oriotrt no YT kK(rd)+,frONn"); 
prt f( movfifffroyroOoNn”) ; 
omimet('.Glob! Sramao\n'); 
DIS es manana” Je 
returns 
case 56: 
printf("¿olobl X0ORFRNn"); 
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DEN s spnosDesXxURNm" Js 
return; 
case 57: 
Sitio alos POR sr pc,ORNn"”); 
return; 
case 58: 
elle lad. rer Kolonie Tr 
Prin f Sr oe ANDAR ), 
return», 
case 59: 
o o IO O 
se pc,NOTNn”); 
return; 
case 60: 
Semeur quoblssSbDCALNn"); 
orint jsr opcysDCALENn" ); 
return; 
case 61: 
Servet . ooo) SUBpBSIRNmY"U); 
Sint? ( Vor Der SUBS IRAN"): return; 
case 6c 
cpu mov Xx ,-Urd)Nnbr efNn"); 
Erotic ‚byte 0128,0;"); 
printf(" evenNno: Nn”); 
Brote aa Oblestramo\n J; 
EAS? Oec,Sstrdmp\n"); 
returns 
case 63: 
primtf("mov $2o,e9(rJ)Nn", 
syvmtable[3].length); 
return; 
case 04: 
jt f("c]r —(Cr4)Nn ). 
return; 
case 66: 
if (oncnt !7- svymtableltil.dimen) 
error(symtablelil.svmbol,msalo] ); 
if (symtaole([11].amt == 0) 
{ symtableli].amt =1; 
printf("¿qolobl e*=ZsNn"; 
symtable(i)].symool);) 
DM toy PO RIN 4 
symtable[i).dimen); 
nta a OD AC Ob LUNN =); 
DIOS AAC E IN) 
printf(")jsr oc iexXsNn", 
symtable(i).symbol); 
ari Acto CRETA), 
IAS E E ERETAN” 
returns 
case 67: 
printf("mov (rd)+,r3\n"); 
printf("mov (rü)+,ro\n"); 
Srumtht nov 72,-Ceä)N\n?)r 
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)) 


Fr Ir (I mos, e(rd)Nn"”) 
return; 

case 68: 
printf("mov $4o,-(rü)Nn", 

numbersíil.numberix*2); 

Na OD READ: ND"); 
orot Sra oer READ An"); 
return, 

case 693 
prot © cob l wiemhiDENWatotNnm”) ; 
orint IST pc yREADFNNn”U); 
oriori 45h OGCratot \n "5 
omimt to movt tn0,*(rd)*Nn" );7 
return, 

ease 70% 
OIG ti s ochobl RESDESNn U); 
printf("jsr oc,READFSxNn"); 
returns 

case 71: 
print olopiNSEADFENn* > 
Bere {Sh pe READEFENn"”); 
returns 

case 72: 
DI oa cbJIe v TEPENNS 
DPIN |SE»>pBc,WRITENNG®)}; 
return; 

case 73: 
Briatttl".alonl WRIIFSNn"); 
orint sr oc,NRITFSNn'"); 
return, 

case 74: 
OPIA Ca al o0 I ARITE”? 
DPPU jor 7 CC, HR TI FENG > 
return, 

case 75: 
printf(”" mov 2*90,90090)N^ ^, 

numbersíi1] .number!*2?); 

pramtto aloa p I F Nn); 
AM Soc rrt 
returns 


ESPdope(i,jl»k) int i»jl»;k;tf 


int il; doveldooept]=1; 
Symtableí(il.amtz1; 
For (1!1=do0pept-1, 11 > k; 11-7) 
{ symtableli].amt =x (dopelill+i); 
dooefilJ=* dooelil+t+l); } 
symtableliJ.amt =* (dopel(k) +1); 
dope (k] zj 1; 





SUID C RUPES 


define TRUE l 
define FALSE 0 
define ERRORFILE e 
define SYMSIZE 200 
define NUMSIZE 200 
define NAMELENGTH 14 
define SIMLEN 10 
define COISP 10 
define MAXFOP 10 


Tt tt q dt dt tt dp tt ER 


char filin(518]; 
Huap*filein filin? 

extern int fout; 

nmt fileout+ 

char filnamINAMELENGTH+1); 


/* this array defines the function of each character in 
the ASCII character set for use in yylex 


Ec 
EI 


eof and end token for yacc 

illegal characters to be deleted 
blanks and tabs to be discarded 
newline -- used to uodate line counter 
legal scecial cahracters 

all letters and the dollar sign '5' 
digits and the decimal point '." 

quote == used to delimit strings and 
deleted  '"' 


da == Continuation 


UY L Uw n)-—c 


Oo 
u 


x / 


int chartype (128) ( 
T-0,71,-1,-1,-1,-1,-1,-1,-1,0,1,-1,-71,; 
-]1,71,-71,-1,-15,-1,^,-15,-15,-715,-1,-15^-1.,-1.; 

Eu -1,-1,-1,-1,0,20,5,-15»35»5»-1^ 

Ben 2,0,2,2,2,4,2,0,4,8,9,4,4,4,4,4,8, 

2, 2,e,e,"1,5, 

7537545759 3054, 50 39, 530 50530 55, 530 54, 36 34, 37 34 3, 37 3, 3150 
O,-7l1,0,0,-71,-1,; 

E27 5,3,535, 31, 530 5303,30 530 37 30 50 5, 5,5, 5, 5, 5,5, 35$, 5, 
ei72,=-1,2, "1; 


int yyline I,errorcnt 0 /7/ albl line entr for yacc 
EdtCconflao O,exflag 1; // cont and extern ref flag 
Ent c; // the alobal next character 

char stig (2561; II the alobal strange collector 

mate stigl; // the length of the string literal 
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Eurodimy Ü,eofflaa 0; int defyv 0; 


int funccnt O0; 


Nut j; 


4// global flags and counter 


// general tempo 


met tasli5); 


struct 


X 


int dopeot; 


Struct 


Vk 


PISE ADN LE FILE 


( 
double numberf; 
int number; 
int use; 
int luse; 
int dec; } numbers (NUMSIZE]; 
numbers is a structure used to hold literal numbers 
dec = =] floatina point declaration 
0 integer declaration 
luse = 1 used as number 
use = 1 used only as label 
2 used as statement label 
numberf = floating ooint values 
number = integer value 
ntonumberot 0; // index of numbers 
int dope [200]; // vector used to hold dove values 
// next avallable dove position 
{ 
char symbol (SIMLEN] ; 
int type; 
int dimen, 
int length; 
int amt; 
int qopv; Sm o eo Mo EJ 
symtable is a structure used as a symbol table 
symbol = identifier value 
type = -| null oarms of extern variables 


numeric id 
numeric array 
strina id 
string array 
function 
numeric bif 
string bif 
simple format 
numeric format 


DD Y O YU £z ux © 


ESZ 





mt 
int 
int 


int 
int 
int 


9 Ruümeric string Dif 


10 external variables 
dimen = dimension of array 
number of parameters for function 
length = lenght of a string 
dopev = index of the first element of 
the arrays dooe vector in dooe 
amt = use for bif's l=usec O=unused 
number of elements in numeric array 
number of bytes In a string array 
x / 
symot SYMSIZE-1; // pointer into the symbol table 
tnum,tsym; // temporaries is structures 


RWBASE;:; // base of reserve words in symbol taole 
forcnt 0; int temocnt ÜO,maxtemp -1; 
maxfor -1; 1nt oncnt 0; 
Borctr 0; 
/ k Porc oe = current depth of nested for loops 
tempcnt Z value used to manage the temporary 
pool used as tempcntxo0 
maxfor = maximum number of for loops nested 
tostis point in thezprogram -- 
used to aetermine number of for loop 
variables needed 
oncnt Z count of ON statement label 
foc tr = current count of all FOR's used -- 
used for label defintion 
x / 


Mo tunarli201)5 int dofunar 0; 


int 


datact O0; 


// pointer to the next data value 


double dadataí!100]; // data list to be used as data to READ 


char *msa [) { 


"xx ERRORxx* 
"xERRORxx 
"xx ERRORxx 
"xx ERRORxx* 
"x*ERRORxx* 
"* *ERRORx*x 
"ExERROR Xxx 


"n 


attempt to redefine a numeric 13 as array ", 
attemot to redefine an array 1d ", 


attemot to redefine a strina , 
Attempt to redefine function "., 
ottemot to redefine built in function ", 


n 


attemoted use of numeric ı9 35 array , 


incorrect number of parameters , 
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"**ERROR** illegal use of external name", 


"#*k#ERROR** illeqəl use of string id as string array”, 
0 


) ; 


extern char *bifsíl; 
int biftypel) ( 

Sr DI A A O A NN | y; 
Mt bDifəct i] { 

70857055550, 02095:05 95275055720. 3527050,;0,0,8R,8,-1;,1,-1 ) ? 


/ * variables for data strina collection k / 


char datastrinal[400] ; 
char xdatastor 2datastrine [01 


# define SYMSIZE 200 
4 define NUMSIZE 200 
4 define SIMLEN 10 


struct numbers ( 
aouble numberf; 


nt numberi; 

int uses 

int luse; 

int dec; ) ; 


extern struct numbers numberslj; 


/ x numbers is a structure used to hold literal numbers 


dec = =ù floating pOint declaration 
0 integer declaration 
luse = 1 used as number 
use = l used only as label 
2 used as statement label 
numberf = floating point values 
number Z integer value 
Ao 
struct symtable ( 
char symbol [SIMLEN] ; 
pnt tyoe; 
int dimen; 
int length; 
int amt; 
int ODV; ps 


extern struct symtable symtable [f]; 
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/ k symtable 


x/ 


K 


x / 


char *reservewords 


een, 
I5, 

" pp" ; 
SON 
O" ; 
EDER”, 
MD" , 
NE", 
"FOR" , 
STETIT" j 
SEM", 
DISTA", 
ELSE", 
Ho", 
cube, 
NEXT", 


symbol 
type 


dimen 


lenath 
dopev 


amt 


s 


the following definitions are the reserve words of BASIC 


b 


3 structure used as a symbol table 


identifier value 

=| null parms of extern variables 
0 numeric id 

numeric array 
string id 

string array 
function 

numeric bif 

string bif 

simple format 
numeric format 
numeric string tif 
external variables 


O «4 0 Y 0 uU! yd Ny = 


dimension of array 

number of oarameters for function 
lenght of a string 

index of the first element of 

the arrays dope vector in dope 

use for bif's 1zused UÚzunusea 
number-of elements in numeric array 
number of bytes in a string array 


^ 


reservewords = caoitol srellincs 
lreserveworos = lower case soellings 


Del 


note the '€' inserted to all texts 
to allow "C" to process the values 
of its own reserve words. 


( 
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"READ", 
AOPEN”, 
E UP", 
"THEN", 
"GOSUB", 
INPUT", 
"PRINTS, 
"CLOSE", 
"WRITE", 
"RETURN", 
"RESTORE", 
"SUB", 
"RANDOMIZE", 
wen" ; 
MED", 
ip", 
EE", 
"LE", 
"NE", 
"REMARK", 
"CALL", 
I [C RN", 
INTEGER", 
EEIUDAT", 
DOUBLE", 
"CHAR", 
"ADDR" ; 
"OR", 
"XOR", 
"NOT", 
"AND", 

0 

y; 


char *lreservewords 
"estep", 
tO”, 
"ej la 
"eon", 
"ero", 
"def", 
"edim", 
"eend", 
"efor", 
"elet", 
"erem", 

n 


"enext" 
"eread" 
"eopen" 


, 
, 
: , 
"efile", 
, 
, 
, 
"estoo"» 


(] 


( 
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K hen, 
"egosub", 
"einput", 
"eprint", 
"eclose", 
"ewri te" 
"ereturn", 
"erestore", 
"esubp", 
"erandomize", 
“eeq", 

"ejt", 

"egt", 

"ege", 

"cle", 

"ene", 
"eremark", 
"eca] ] er 
"eextern", 
"einteger", 
"efloat", 
"ecouole”, 


bl 


"echar", 

"eadar", 

acer", 

"exor", 

"enot", 

"eand", 

0 

y; 

char *bifstíl ( 
"atan + 
"exp", 
"mod", 
nuQ, 
SAG, 
"onm s 
iQ SS y 
“Sort”; 
"pans 
E naa s 

asc | 
"chro", 
"COS, 
E og 
sino. 
wa! um 
pads 
"deg", 
"730°, 
Neo. ", 
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SCANNER 


/* the following are the user defined functions required 
to provide scanning  */ 
yylex() 
{ extern int yylval; // this value 1s used to return 
// values to yacc 
double atof(); 
Aer 10110) ,numstrIi50); int ik}? double d,d? 
while (TRUE) // ao forever or until return 
{ 
Switch(chartyoe tcl) 
( 
/* eof and the end 


token for yace == Case -e 
illeaal characters -- case -1 
blanks == Case I 
newline == c ase 1 
legal specials == case 2 
letters == case 5 
diaits and decimal -- case 4 
Strinas == case 95 
continuation == case 6 

ky 

default: 


case =2: return (c); // 1f we aet here 
// we'd better be aone 
case =-1: jcal[l01=c; id[1)]='N0O'; 
error(id,"illegal character deleted”); 
c=aetcl(filein); break; 
// tnrow away illegal characters 
case 0: c=getc(filein): break; 
/^/ blanks thrown away 


/* just update the line counter and return 
newline to vacc k / 


case j: 
yylinet+; )`Zc; c=qetc(filein); 
if (eofflaa) c=0; 
if Ge’ e 
{ exflag=1; dimv=0; defv=0; 
if(tempcnt > maxtemo) 
maxtemp - tempcnt; 
tempcntz0: return(i):; ) 
conflaa3a=z0; break; 
// continuation on next line 
case 2: 1=šce; cšssoete(filenln); 
// return the legal character as is 
return (1); 


case 5: 1=0; ydlit+r]=c; 
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//collect 


czgetc(filein); 


/* collect the first 9 letters in id == note no reserved 
word is longer than 9 and id's are limited to U x/ 
while ((C(chartyoelclz2723) ii| 
(chart yoe([cj)==4) ) 
&% i < 9) 
{ idli++] =c} cžgetc(filein)} } 
143 [3] s ' 0; j^? 
"paci Etocend String 
/ x upper case reserve words x / 
1-lookrs(id); 
if (1 != #1) // return reserve if valid 
O O 
( 
case Mee tun (STEP); 
case 1: return (60); 
coser return (IF); 
case 5: return (ON); 
case 4: return (TOD), 
case 5: defv=1; return (DEF); 
case 6: dimv=1]1; return (DIM); 
Gases :imeGftils6o= 0; return (END); 
// auarantee eof 
case s return (RORI; 
case 93° return (LET); 
case 10: 
case 35: wheel zn) 
cEsceto(t1len), return(kREM); 
case 11: return (DATA); 
case 12: tetura r CoE); 
case 13: return (GOTO): 
case 14: return (FILE); 
case 157 return (NEXT); 
case l6: return (FEAD); 
case l/: return (OPEN); 
Case nlo return STOP]; 
case 19: return (THEN); 
case 20: return (GOSUB); 
Case 2l return (INPUT)? 
case ce: return (PRINT), 
case 23: retürn (CLOSE); 
case 24: return (WRITE): 
case "S: meto RETURN): 
case 26: return (RESTORE); 
case O7: return CSUBI; 
case 28: return (RANDOMIZE); 
case 29: yylval=0; return (relsoec); 
case 30: yylval=ies return (relsoec); 
case 31: yylval=8- return (relspec); 
case 32: yylval=20; return (relsoec), 
case 33: yylval=l6; return (relspec); 
case 34: yylval=47 return (relspec); 
case 36: oncnt:z0; exflagz0; 


id's and reserved words 





return(CALL); 
caso sOncint-O;8ex tbog= 0; 
return(EXTERN); 
case 38: 
case 39: 
case 40; 
case 41: 
case 4g: 
yylvalz1-58; return(TYPE); 
case 43: return (OR); 
case 443 return(XOR); 
caseras: * Peturn( (NOT); 
case 46: return( AND); 
} 


ELNot a reserve word look for an ID if length ok */ 


EEUU Cex ti aaj y A ehar linit om sto 19s 
( error(1d, 
"illeoal ID name == numeric ID used"); 
OU = loo cu (10)+) 
else izlookup(id); 


p 
EDI which conforms to normal BASIC ID definitions is 
acceptable -= thus the following forms are recommended 


numeric 1d's -- letter 
letter digit 


String id S == letter ir. 
Derserzangat £ 
function res -- FN jetter 
EN Tester digit 


These forms are recommenaed however the following are 
the resrtictions which are enforced. 


1) lenat^ 1-4 characters 

2) the id must begin with a letter, 
upper or lower case 

3) rules fer the recognition of tyres 


numeric id's wxyz 
4 = EX 
x 7S Nn, $ 
y = $ 
Strimem d s WXYV2Z 
w ME EXT 
Yas um 
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TUNE NOR 


4) 


weiss 


id's may mix upper and 


x O: y MUSt = $ 
Wx yz 

w must = F,f 

x must = Nan 


lower case freely 


XC UC X 0 Xx Ax x x KK KL ex e ox oo ox xxt c0 ooo 9t XX x kx x X X X 


NOTE 


reserve words are acceptable as entirely UPPER CASE or 


LOWER CASE, 


Xf 


A 
(if 


case g: 


case as 
Case $ 


default: 


) 


=) 


// return tyoe 


(almyv==1 


{ 
case 
case 


Cose 


case 


case 


case 
Cose 


0 
19: 


| de 


(de 


however they may nct be MIXED! 


1f predeclared 
fvzz1) 


Sswitch(symtableli] .type) 


fy == 1) 


{ yylval=insert (id); 


return(numerictid);} 


error(id,msgl0]); 

return(numericeid); 
l: eəerror(id;msgllil); 

return(arrayrid); 


error(id,msgI[2]); 


Peturmlstfringe1o), 


error(id,msgí3]); 


returnítfunctiontid); 


6: 
8; 


case Y: 


error(id,msaíd] ); 


error ıdamsesl/3Ns 


yylval=i; 
Switch 


{ 
Case 
case 
case 
case 
case 
Case 
Cose 
Cose 
Case 
Cose 
Case 
)) 


(symtableli).tyoe) 


eo be oo oo oo oo oo oo oo CD 


DON Ul £ ww n) v -— O 


return 
return 
return 
return 
petunn 
return 
pecu 
return 
return 
PSU 


147 


(numerice1d); 
(arrayrid), 
(stenimge)d), 
(stringed)? 
(functiontid); 
(numericrbif); 
(stringebif); 
(sirpleeformat); 
(numericrformat), 
(strenumebif); 





chee for a function definition FN,Fn,fN,fn x / 


if ((id[0] = 1» idí0) == 
GO tu Gr] S= rn?) 
(izinsertíjd)5 vylvalzi; 
Symtableli] .tyoe=4, 
return (functioneid);} 


Ot a function -- a string 1d?? x$,xy$ x/ 


LEA ' Í wel =s eh) 
{i=insertlid); yylval=i; 
pf (aimu Sl H 
error(id, 

"EXWARNING** undefined string i2"); 
error(id,"assigned default length lo"); 
errorcnt Z errorcnt-2; 

J Oak ost error on warning 
symtableíil.lenathz15; ) 
symtablel1].tyoe=d; 

PertUA (Stringed)??? 


mot function or stringa must be numeric x 


i-insert(ia); yylvalzi; 
return (numeric+id); 


case 4: d-z0.; b-.1; j-0; i-0; 
// numbers fall here 


7x does tne number beain with a decimal point 22? * / 


MUMS CI tic; if (c==>'' t) Vel; 
c=-getc(filein); 


„hile(chartypelc) == 4 2% j«49) 
VA: tu t) 
(numstrij++) - c; c-zaetc(filein); } 
else if (12:1) Y break; ) 
else ( i=l; numstrij++)]=c; 
czgetc(f)3]ein); ) 
AA O numstrirys. "NO; 


else A A A A 
( 1215 mumstrij++1='".'; 
numstrtj)z's0'; ) 
else [omomstrijis'NO',. >) 
mmCu-20)06; z a34top0omumstr); k-lookniC))r 
// declared as integer lookuo 
if (k == -1) 


mos;  kK=insertnrlji,d); 
numterslk] .dec=0;)) 


else d=atof(numstrI, 
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//declared as real lookup 
| j=dr k=looknf(0); 
ANG: == velo 
| { k=insertnr(j,d); 
numbersíkl.dec-2 -1; )) 
/* return index in number table 
in yylval and return number x/ 


yylvalzk; return (number); 


case 53 stigl=0; // strings fall here 
while ((ce=cetc(filein)) $= '"'! 
RR stigi < 256) 
stialstigl++)=c; 
Z collect the string im stig 
czgetc(filein); stioq[stiq1]='N0'; 
LA Out in the null for string 
return (string): 
case 63 lf) eontınusatıon 
conflag=l; c=getc(filein)s; breaks 
// flag on nextchar 
default: return(0); 
/x end of yylex k / 


n) 

nmt (argc;arov) Intesctoce,schar araravı.. it. mt lj; 
mance i= 2)" ( error("ARG COUNT?2",0); exit(1);) 
j=05 
1j=0; 


while(arqvti) tj) 14 


= 'NO' && ij « NAMELENGTH - 2) 
| ( if (arogv[1) (j) = 


ie, jt) 
// set filename back 
Slese wet iimamti;++! -argvtl) T[j+*+*l]; 
} 
ie sn tanimamel} j)=1) == 'b' 
&& filnam [ij-2]== '.') it 1j<3) 
{ error("file tvbpe??",0); exit(1); ) 
filnamlijell='s'; 
mulnsmtij]'NO'; 
fout 7 creat(f1l1nam,06660); 
if (fout == =|) 
error ai nams Can Not ocen?" l; exit(1);> ) 
eat? wallow | +maininin.textWaXnemayn: ina"); 
printf("setdNnmov $STACK, ruin"); 
semant(52,-1); 
semant(55,-1); 


for(tnumz0; bifsíitnum] !z 0; tnum**) 

( jzinsert(bifs[tnum)), 
symtable[j).tyoe = biftypbeltnum); 
symtableí(jl.dimen = 1; 
symtableíjl.length - bifact (tnuml ; 
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RHBASE=j; 

foo ku ( moc J), symtablel;).dimen=2; 

J=]ookuo("rnd"”); symtable[;j)j] .dimen=0,; 

jJzZlookuo("paqe"); symtable[j].dimenz0; 

if (fopen(ərov[(1],ftil]lein) =“ -1) 
(errore con not open argql”~,0); 


unlink(f11nam); exit(1); ) 


c=getcl(filein); } 


yyaccot () { 


fA Called first Dy yace get first character 


totr kilm Char *wK*dataptrr; double d; d=0; 


rL f(".globl] DATCNT,DATA,DATAEND"); 
mpuntf*("STRNEXT,STREND,STRDATAXn"); 
printf (".data\n\n"); 

kK=datapt*3; 

printf("DATCNT: ONn"); 

posnmtf("DATA: Wn"); 


for (j=0; 


Jae datact tt) 


numbrcv(&dataljl); 
EU UFC"DATAEND: 0;0;0;0Nn"); 
EDUmtf*("STRNEXT: .Z.+ƏNnSTRDATA:Nn"); 
1f (datastopor ¿= datastrimal0))orintfl"An<"); 


for (dataptr = šdatastrino[0]; 
dataptr < Gatastor, dataotr++) 
Ji (*qGataptr == 'N0') oriotf( NNO»Nn«"); 


else rpcutcharíi*dataotr); 


priptf("NNO»; STREND: ebyte 0;.byte 0, .evenNn"); 


for (j=05 


j<numberct; j++) 


Num noumbers[i).dec !z O (1 numbersT[j).luse == 1) 
MON cd: 7,1), 
numbrcv(&numbers[jl].numberf); ) 
for (j=symottl; j<RWBASE? jet) 
{ kZsymtable[j]).type; 
switch (k) 


{ 


case 0: 
case 10: 
INS ia: Or 07 07. .0Nt/ "ZsNn' ^», 
josymtablelj).symbol);break; 
case 1: Il2symtabletjl].doov;: 
m-symtable[jl.dimen; i 
orint DA. AO ENE AS NN? 
joemosymtablelj) .symbol!l); 
for SN E 
{ if (k==1) dopeln)=x 8; 
orior (=: LOND a 
dopeln)); ) 
breaks 
case 2: -symtableíjl.lenatn-1; 
orvmttt odio; 2.1405: "0. jJ 1); 
erintf(" „even\t\t/%s\n", 
symtable[lj}.symbol); break, 
AN mr tl25292 00; 0590, ONENC )$ 
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printi a DUE SVmtsstelbesyvymbol)s 


break; 
) 
) 
j=05 
Dore E-0;7 kc15; ktt) 
ifCfds[k) !- 0) 
( 
if (fds[k) == 1) j++; 
else 
error("more files referenced than openeu",0); 
} | 
1f()1#0) 


( 
r yn t f EE 
prag: gigi 
1720; 
for(kz0; k«15; ktt) 
Di potcst 0) 
pirame wo \eBUr+Zo\n',518401++))> 
alseroriattó Ned” )> 


s S ONG oj) #318) | 
FD FDONPFD :Nñn U ) $ 


pr mt f r oo. 


Duna te stexe\n.alonl 


prints 
printi sys 


SN lus 
FOLUOSENDPENDER :Nn U) 
oc FC PPOOSENP U) 

exito). 


) 
eo att. textinEnDER: sys extra” ),; 
pumtf("NnNn.b5bssNnNin"); 
cmt t( STACKTOP: SID NO MARKS 
MO (]=05> j <= forctrs j++) 

A EAS. +8 NAFTA: a. FB AO 12-1); 
if maxtemp < 20) k=maxtemp; else k=20;3 
for ()Z0;j )<k;j) ++) 

ment? ( rd: 25. B.Nn" yr )); 
for (jz7symot*1; j < RABASE; j++) 

l k=zsymtablelj).type; 

symtablelj).amt ; 


EN De 


Switch(k) 
( 
caseus opiImte od aa AO TUNA ASNO A 
jJ. l symtableíjl).symbol); 
break; 
A Sa: Lor. evenNtNt/Ze Nm, 
je)» Symtableíjl.svmbo!); 
) 
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MAIN PPOGRAM 


# define ERRORFILE 2 
ENDclude "./bstruc.h" 
extern int errorcnt, fi1leout, fout, yyline, RABASE, 
numberpt,sympt,]: 
extern char filnamil); 
main (argc,argv) 
int ərgc; 
char *arov[]; 


( 
yyinit(argc,arav); 
if€yyparse() i: errorcnt >0) 


tl unlink(f1lnam); ex1it(1); ) 
yyaccot(); 
flush(); 
exit(0); 
) 
compar(sl,seo) // compares two strinas returns 0 if n.e. 


char *sl,*s?; 


( 
while (*s1++ == xs2) 
ISS Oe tura (1); 
return (0); 
) 
ISC ODy (Us, t ) SEAS Drocedure comes strings 


enor *XS,*XU5 ( 


while(*t++ = *st*); 


numbrcv(st) 1nt *st []; 
( int i} 
for (1320; j)j<3; i++) 
pountt(i"2o; ".stíi1l!); 
Epuntf("Zo 0,stí351]); 
) 


error(x,y) char *x,*y; 
{ 
flush(): 
fileout=fout; 
fout = ERRGRFILE; 
Tay ==) 
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Oe vate 15550, x); 
else 
evar (me USAS 45: ZS0;yyline, x,y)? 
flush(); 
fout = fileout; 
errorcnttt, 
} 


yyerror(s) char *s; ( 
extern int yychar; 
extern char *yvstermí]; 
flush); 
fileout=fout; 
foutzERRORFILE; 
int 153s", s ); 
Ny y line ) printf(", line Ad,", yyline ); 
erıntf(! on input: "); 
mre yychar >= 0400 ) 
printf("%s0, yystermlyychar-0400] ); 
else switch ( yychar ) { 
ase 1 .umppmtfio"Nt0 y); break; 
case '"0fcorint(tt "NqO-);,; break; 
case '0': printf( "5endO0 ); break; 
default: printf( "Zc0 , yychar ); break; 
} 
SmrPorcnt t+; 
flush(); 
foutzfileout; 
) 


Meceun (ts) char *s; ( £/ "hys Orecedute velicates id's 
int 15 // returninq "1 or swmboltable index 


for (17sympt*l1; i«RWBASE; it*) 
rtslcempar(ls,symtableliT „symbol J7 > 0) return (1); 


/% handle uocer and lower case reserve words x/ 
for (|1RNBASE; 1«SYMSIZE; 1++) 
t 


if(compar(s,;symtableti]).symool) > 0 1| 
bifcomoar(s,1) > 0) return(1); 


return (-1); 
) 


buacompar(s,;i) char *s? int i; 
{ // check bifs by translating all lowercase to uppercase 
// returns index or -1 1f no match 
int kl,k; 
char t(SIMLEN); 
kiz'a'-'A'; // difference between uopercase and lcase 


HINC E07 cit) 2S tO! ker) tik) = sik] + k13 


155 





t[k] - '0'; 


return(compar(t,symtabletfil.symbol)); 
) 


lookrs(str) /* resere word lookuo -1 is not found x / 
char *str; { 
int i; 


for (1=0;reservewords[li] != 0; 1++) 
if (compar(str,reservewordsí11]) 


ta 
t I 
comoar(str,&lreservewords(i} [1])) return(i); 
return (-1)$ 


) 


WSoknt (nf) //locates numbers declared as real 
double nf; ( 
int iv 


for (1=071 «€ numoerot; itt) 
Ji (mimbeps [il oóÀ0numbeptf == mt) return (1); 
return (-1); // return -1 for not found 


lookni(ni) // this procedure locates numoers 
// declared as inteaer 
int ni: ( 
int 1; 


for (12:0;1 «€ numberot; itt) 
if (numbers[il.numberi == ni) return (i); 


return (-1); // return -1 for not found 


insert(cc) // this procedure inserts new id's and 
char *cc;í // zeros all entries -- 
j"svmot-7-; // returns index in table 
mrt 3 <0) 
{ error("fatal error -- symbol table overflow", 
"compilation terminated"); 
unlink(filnam); exit(1); 
) 


strcopy(cc,symtableíjl.sympol)J;: 


symtableíjl.typezO; 
symtableíj).dimenzO0; 
symtaoleí[jl.lenathz0; 
symtablelj].dopv*d; 
return (j); 
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insertnr(j1,d) // this procedure adds new numbers to the 
double d; int jl; // number table =-=- zeroing all entries 
{ int i; // returns the index in the table 


i=numberpt++; 
Wee cy >= NUMSIZE) 
( error("fatal error -- number table overflow", 
"compilation terminated"); 
unlink(filnam); exit(1); 
} 


numbersl1]l.numberfzd; 
numbersíil.numberizjl: 
numbers[il.usez0; 
numberslil.lusez0; 
numbersíil.decz0; 
return (i); 
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29100 | 
etext 


COMPAR: 


jmp 


beq 
or 
one 
or 
ogt 
or 
Dat 
br 
ble 
P r: 
bae 


cir 
rts 


mov 
rts 


NOT: 
tst 
beq 
clr 
rts 


mov 
PAS 


AND: 
cmp 
bne 
rts 


cìr 
rts 


OR: 
cmp 
bne 
rts 


mov 


LIBRARY 


COMPAR,AND,OR,XOR,NOT 


St(e3) 


-(rJ4) ANS E AO Stack 


DC 


SS ra) A TRUE 


pc 


(rà) 

TRUE or FALSE 
(r4) // TRUE before set 
DC 

$1, (rd) // FALSE before set 


pc 


Sect, (r4) 


i 

Dc / / both the same so AND 
(rà) // different AND => FALSE 
oc 

args ora) 

if 

DIE // both the same so OR 


ra) 47 different OR => TRUE 
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into stack 


Vast oem: 


is correct 


is correct 





Ds pc 


XOR: 
emp (p4)+,(r4) 
bea If 
mov  $1,(r4) // different XOR <> TRUE 
rts DC 
les 
clr (rd) 7 Same XOR => FALSE 
rts DC 
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EWobp! CSET 


DOSE 


Eobl endig1t,ERROR,strmv 


etext 
ESE T: 


mov ard) t,rs5 

mov (sp)t,rO 

mov sp,stacksave / save old stacx polnter 
cmo $0,r3 


beq 3f 


mov $Shere,r^ 


mov (r4)+,re 
jmp *2f(r2) 


mere: 


Soo r3,10 


5: 
jmo  *rO0 


intval 
floatval 
dblval 
charval 
special 
intarray 


/ table of actions 


floatarray 


dblaray 


charstring 


special 


intval: 
mov f 
movfj 
mov 
jmo 
floatval: 
mov f 
setf 
movf 
setd 
jmo 
dblval: 
mov f 
mov f 
jmp 
dblaray: 
tst 
mov 
jmp 
alostarray: 
intarray: 


*(rd)*,frO 
trO0, re 
rl,” (so) 

* r5 
e(r4)+,f rd 
fr0,-(sp) 


* pS 


x(ry)+,froó 


fr0,-(sp) 
*rS5 

(ra)t /throwaway dopevector info 
(r4)+,-(spo) / put address in stack 
* r5 


JSt rS ERROR 
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CSET.s 


for choo 





<x *ERROR** unimplemented call octionx10>; 


eharval: 
St 
movb 
jmp 

emarst rings 
tst 
mov 
jmp 

special: 
mov 
jmp 


CRET: 
mov 
mov 
setd 
tst 
beq 


mov 
jmp 


intre 
float 
dolre 
charr 
S p e C [` 
iatot 
float 
dblpt 


(rat / throw away length 
*(rüd)+,-(sp) 

* n5 
(rd)+ / throw away length 
(r)t,-=(sp) 

*n5 


*k(r4)*,-(sp) 
* r5 


(so)+,ri 
stacksave,sp 


(rd) 
| f 


(rd)+,re 
xf (re) 


t 
ret 
t 
et 
et 
r 
ptr 
r 


eharptr 


specr 


intret: 
tst 
movif 
mov f 
jmp 
Moatret: 
tst 
setf 
c rt 
mov f 
seto 
jmp 
alo ret: 
tst 
movf 
jmp 
charret: 


et 


(r4)+ / throwaway dummy 
ro, fro 
fr0,*(€ rd) + 

*ni 
Cea / throwaway dummy 

(r4) 

frO0,x(rd)+ 


kr 


(ra)* / throwaway dummy 


tmo. xtna)* 
xri 
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«even 





tst (rü)+ / throw əway dummy 
movb r0,(r4) 
move $'°\0,1(€r4) 


cmp (r4)+,(r4)+ /throw away old length and addr 
jmp *rl 
eharotr: 


est (rd)t* / throw away dummy 

mov (r4)+,r3 / get address 

mov (r4)+,re /^ get ola length 

mov r3,-(rü) / restore address on bottom 
mov  reé,-(r4) / restore lenath on top 

mov  r0,-(r4) / new string address 

mov 377777,-(r4) /dummy len to force use of old len 
jsr pc,strmv 

jmp *ri 


specret: 
tst  (ru)+ / throw away dummy 
mov  r0,*(r4)+ / move oointer into place 
jmp xrl 

Jt D tem: 

lalocetotr: 

Sept r:? 


)s r rS ERROR 
«* *ERROR** unimplemented call ootionx0>; ¿even 


les / procedure calls come here clean stack 


charuse = 6 
charouse = 16 


cmp (r4),3charuse 7 Check, Tor vehar eal biwith 4 osrms 
beq ef 

cmp (r4&)+,$charouse / check for char call with d parms 
beq ef 

cmp — (r4)+,(r4)+ / throwaway unneeded function addrs 
jmp *rl 
es 

cmp (r4)+,(r4) + / throwaway unneeded function adars 
tst (r4)* / throwaway unneeded function addrs 
Jm *rl 


stacksave: e=ete 
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San ob! 


etext 


DOPCAL: 


mov 
mov 
mov 
mc 
inc 
mov 


TOFC: 
mul 
add 
mov 
sob 
mov 
add 
mov 
rts 

data 

Uc tmo: 


DOPCAL 


$0,dctmp 
*(r4),r0 
(r4)+,r1 
r1 

pi 

$8,r2 


(rà)*,r2 
r5,dctmo 
(ri)*,re2 
r0,TOPC 
detnpe,r> 
(rd),r3 
r3,(r4) 
pc 


0 


/get number of subscri 


/move address of dope vector 


pts 


/move to fisrt dope value 


/the first displacement is 


the ar 
in the 


ladd in the base of 
/leave the address 


ATEOS ron calculation 


15,1 


l 


ray 
stack 


DOPCAL.s 


into v] 





ERRORES 
ob) ERROR 


ERROR: 
I 
mov $2,ro 
movb  (rS5)+,erch 
bea ES 
sys write; erch; 1 
br 1b 
2: 
Sys exit 
erch: o e 
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Eg ob |! 
291 ob: 
ext 


OPEN: 
mowv 
mov 
mov 
mov 
add 
pst 
bea 
jsr 


Lt 
Inc 
mov 
add 
jmo 


5: 
RANDO 
ROPEN 
CREATE 
APPEND 


RANDO: 
jsr 
<unimp 


(r4)+,r1 /mode 
(r4)+,r0 /address of name 
rO,re 
Sr DOG 5 /open flaas 
(r3),r3 /select correct 
(r3) /open or closed 
inf 
r5, SERROR 

«attempted to reopen: \0>; .even 
(r 3) 
$FD,r3 /buffer base 
(rü)+,r3 /select 
xSf(r1) /select mode 

/table of modes 

rS, SERROR 


ROPENs: 
mov 
isr 
bes 
mts 


CREATE 
mov 
jsr 
Des 
rts 


APPEND: 
mov 
Sys 
bes 
mov 
mov 
mov 
add 
mov 
mov 
Sys 


Pret, CLOSE, SERRORAZECLOSE 


t [EIS s 


FD,FDO, fooen, fcreat,ERROR, flush 


lemented random access: NO»; 


Crs 5f 

rS, fopen; 5: 0 
FILERROR 

DC 


75, of 
roó,fcreat; 3: 0 
FILERROR 

Dc 


poss f 

open; 3: 0; 1 
FILEARROR 
r0,*(r3) 

SS kee UPS.) 
PS, he 

$6,r2 

ro,*ü(nr3) 
*(Cn$5),n0 

seek; 0; 2 
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flag 


correct buffer 


«even 





| 


NS 


pc 


BEERRÜR: 


jsr 


r5,SERROR 


<file open error: 
FILEARROR: 


jsr 


«error on open for apoendNnN0»; 


rS, ERROR 


SERROR: 
J 
mov  32,r0 
movb (r5)t,sech 
beg ef 
SyS write; sech; 
br 1b 
es 
mov 52,r0 
movb (r2)+t,sech 
bea 3f 
sys write; sech? 
br eb 
5: 
mov 32,r0 
mov $'\n,sech 
sys write? sechs 
sys exit 
GLOSSE: 
mov SFD,r3 
add (r4),rš 
mov (rj), Of 
Er r5 flush; e: 
mov *(r3),r0 
sys close 
mov S$FDO,r3 
add Cred) +, 75 
er (r5) 
rts DC 
BELOSE: 
mov $14 .,rl 
mov $FD,r2 
mov  S$FDO,r3 
Ie 
est (r3) 
beq 2f 
mov (ro), f 
Er  r5,.flush; 3: 
mov *(re),rd 
sys close 
2: 
add $2,re 
add $2,r3 


\0> 


l 


l 
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«even 
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.globl READF,READFN,READFS,READFE 


uswop! FD,FDO,getc 
etext 
READF : 
mov $FD,re 
add (rad)t,r?O 
mov (r2),READFILE 
rts pc 
«data 


READFILE: O 


.Qlobl] 


ERROR 


etext 
READEN: 


mov $rnumbst,r3 
cr re 


(Teneth of number 


READE TIE,ecf 
er r5,getc; o: 0 
bes badread 

movb rO,rch 

empb 3'9,rch 


mov standard 


oit 6f 

Noob 3'0,reh 
Bgt zf 

movb rch,(r3)* 
sob rl,1ob 

Br of 

cmpb s s eh 
beq 3f 

supo $'Nt /rch 
beq 3f 

emma $' rch 
Ded 5f 

emBb 5'-,rch 
beq 4f 

cmpo Y$'+,rch 
beq 3f 

er of 

cmp r3,3rnumost 
Sea 10 

cmp r3,3rnumbsttl 
bne of 

Est re 

bne of 

sob ri,tlb 


cmp r3,5rnumbst 
bne of 


166 


READF.s 


|amqetedcto es dyes 


input 





movb rch,(r3)+ł 
oe Ib 


pst rd 

bone of 

movb Pen, Ur 5) ¢ 
NGC rc 

sob rl,1b 


tst rd 
bne cf 
movb $' .,(r3)t« 
movo $'\0,(Fr3) 
mov S$rnumost,-(r4) 
rts DE 
badread: 
jsr r5,ERROR 
«ERROR bad system call 
seven 
data 
eh: pce 
rnumost: aa 


Noob) ERROR 
etext 
READFS: 
mov (rà)*,r! 
mov (rü)+,r2 
l: 
mov READFILE,2f 
JSr rS ,qetc; 2: 0 
bes badsread 


movb rO,srch 
Emb 5'\n,srch 


beq ef 

cb 3'",srch 

bea ef 

movb srch,(r2)+ 

sob Eig i} 
AMO VO +°'\0, (re) 

rts pc 
badsread: 

‚sr r5,ERROR 

<ERROR bad system 
SPCR: E 
BERDFE: 


ine 


call 


READFN\n\0> 


/lepeth to be read 
/address 


‚default input 


/Gut character |n place 
/string full yet? 


/all strings end in null 


READFSANNO>+ «even 


167 





mov READE TLE x2 f 


E 


jsr Par qetcs, 27 0 
bes ef 

cmpb S An,r0 

one 1b 

rts pc 
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SDCAL.s 
ME TOD | SDCAL 
etext 
SOCAL: 
movf x*«(r4)+,fr0 
movfi frO,re 


mov (r4),ri // save length for later 

inc (rd) // auament length by null on end 
mu) (r4)+,re // multiply by length 

add r3,(rd) // add disolacement to base 

mov ri,-(rd) // restore the length 

rts exe 
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Soo } 
etext 
SUBSTR: 


mo v f 
mo v f 
mov 


movfi 
dec 
Cmo 
bae 
movf 1 
add 
cmp 
bae 


movf 1 
dec 
add 
movfi 
rts 


ada 
mov 
rts 


sub 
movf 1 
add 
movfi 
sub 
mov 
rts 


SUBSTR 


x(r)+,fr0 
r(r4)+,fr1 
(r4)+,r1 


fei te 
re 
rc,rl 
m 
frO,r3 
pr 
rer 
ef . 


frir 

re 

ro, (rü) / 
frO0,-[(r4) 

pc 


ri,ír) 
$1,-(r4) 


DE 


pire 
PIS 
ra, (rd) 
A ro 
re, r 3 
rs, =(pd) 
pc 


yo 
e 
// 


ER 


IR 


ZZ 


SUBSTR.s 


length of substr 
starting offset 
length of strina 


too long 


Startrlengtn too far 


all OK 


alter address by Starting byte 


IH 


Z 


AN, 


7. 


77 
ef 


// 


new lenath into stack 


Bssimtstorend of strinatNOULL-) 
lenath now | 
How much too Dig??? 


new starting address 
aet length again 


new lenath 
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Baloo! WRITF,WRITFN-WRITFS,WRITFE 
goall FD,FDÜ,putc 
etext 


WRITF: 
mov SED 2c 
add (rd)*,r?O 
mov Gne wWRITFICE 
rts DE 
«data 
WRITIFILE: 0 


meron | nodigit,floter,ERROR 
etext 
NRITFN: 


mov $wnumbr,r3j 
jsr oc»,floter 


mov $wnumbr,r3 
mov nodigit,re 

Re 
Movo (r3)t;r0 
mov Ne lie Piece ft 
mor fFo,putcr cs 0 
Sob reé,lb 
movb $' ,r0 
mov WRITFILE, t 
Sr r5,putc; es 0 
ees pc 


wnumbr: oco. 


.3lop] ERROR 
etext 
WRITFS: 


mov (r4)+,r1 


mov (r4)+-re 

p. 
mov NRITFILE,ef 
movb (r2)+,r0 
bea Sf _ 
jsr P3 DUtC: 2: 0 
sop fl, 1b 


NES: DE 


J 


WRITF.s 





movb $' ,rO0 


mov 
ISP 
sob 
rts 


NRITFE: 


movo 
mov 
jsr 
rts 


WRITFILE, 2f 
2n 


Por pute; 
ri,5b 
BE 


SOUTO 
p»putc: e: 
DC 





.globl asc 
etext 
asc. 

tst (rd)* 
mov  (r4)*,rl 
movb (r1) ,r 2 
movif ro,fr0 
rts pc 


TINI > > 


pop stack 

address of string 

retrieve character 

convent unto 3 floating pt number 
for return 
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aSC as 





mete = atof (no) 

7 Char *p; 

Matos - 170100ftst 
stfos - 1/0200Ttst 


noob! atof 


atof: 


stfos -(so) 
Idfps 3200 


mov f frl,-(sp) 
clr -(so) 

clrf tro 

Gir re 


mov (r4)+,r3 


movb ur Son 
emp $' ,r0 
beq 1b 
cmpb r0,5'- 
bne 2f 
NC (sp) 
movb Ce 5) 4770 
sub $'0,r0 
cmp rO0,59. 
BDI cf 
mor oC, digitaf 
e 
inc re 
or 15 
cmpod pus. e 6 
bne cf 
movb (r3)*,r0 
sub $'0,r0 
cmp r0,5$9. 
DNI ef 
Er pc,digitaf 
dec re 
br 1b 
cmpb rO,$'E-'0 
beq 3f 
cmpb r0,$'e=-'0 
bne 1f 
cir ru 


atof.s 





eur rl 


cmob On) pe 
one 3f 
inc rd 
inc r3 
5: 
movb (r3)*,r0 
sub $'0,r0 
cmp r0,5$9. 
bhi Sf 
mul $S10.,r1 
add rO,rl 
pr 5b 
b: 
tst r4 
bne 3f 
neg rl 
>: 
Sub rlre 
i 
movf bone,frl 
mov re,-(spo) 
bea ef 
pot 1f 
neg re 
es 
cmp re: 938. 
blos If 
C | rf fro 
tst (sp)+ 
bmi Outaf 
mov f Shuge, fro 
or outaf 
les 
mu] f bten,frl 
sob r2,1b 
ee 
est) (sp) t+ 
bge 1f 
divf fri,fro 
br ef 
las 
mu] f for ligt mo 
c f CC 
ove ef 
mov f $huae,fr0 
er 
outaf: 
est (so)+ 
bea If 
negf tro 
E: 
mov f (so)+,frl 
Idfos (sp) 


15 





BUS pc 
7 
/ 
"taf: 
c mp f 
cC tC C 
bit If 
mul f 
movi f 
add f 
Es pc 


add $e 
rts pc 


one 
ten 
big 
huge 


$b1g»frO 


S tein, fr 0 
Os Al 
frl;fro 


, (sp) 


40200 
41040 
56200 
77777 





29gliob 

etext 
ehr: 

mov 


mov fi 


bit 


| 


f 


movb 


mov 
mov 
rts 


chre: 


0 


Chr 


x(r4)+,fr0 
UA e 
$0177,r2 
rö,chre 
bchre,-(r4) 
$1,-(r4) 
pc 


// aet number aesired 


/ quarantee a valid character 


/ 


leave address and 
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lenath 


l 


chr. s 


on stack 





col.s 
job] col 


ASNO S | nodiait 
etext 
col: f 
movf  *(r3)+,fr0 
movfi frO,r! 
mov pinogdgigi!t 
rts pec 
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| 


| 





"Jj oD] 
.9lool 
cosh: 
movf 
‚sr 
mov f 
mov f 
negf 
jsr 
add f 
mul f 
rts 
coshsave: 
cosnaral: 
onehalfe: 


cosh 
exp 
// cosh funct ‚Stk(etkutetk-u) 
frÜ,coshsave 
OC, exp 
frO0,coshargl 
coshsave,fr0 
TuS 
OC,e9xD 
coshargl,frO 
onenalfe,frO 
pc 
Od 
HO. 
040000; 0; 0; 0 
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cosh.s 





gdammrdrm.is 
ucMobi danrdre 
.gloo! DATCNT,DATAENO,DATA 
etext 
danrdr: 

mov DATCNT,r? 

add Bore 

cmp ro, SDATAEND 

pit 1 f 

mov $DATA,re 

mov 32,r0 

mov Df f 

sys write; 4: DAS O 

Em 1f 


«Nn *X*x RUN. ERROR**x* no num data num restore 1ssuedNn V0» 
‚seven 


movf xre,frd 
movf fr0,*(r4)+ 
mov | roó,DATCNT 
Pts OC 
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Jatrar.s 
Sa Hob | Geatroar 
each | STRNEXT,STRDATA,STREND,strmv 
etext 
(SU Peor: 


mov (rd), r 3 

add STRNEXT,r3 

emp SSTREND*+2,r3 

bae If 

MOV Se, ro 

mov  $3f,Uf 

Sys writes U: 0; 54. 
mov SSTRDATA,STRNEXT 
br 1f 

$: 
<\Nž*ž RUN ERRORž*ž*x* no str data str restore issued\n\0>; 
«even 

p ; 


mov (ra4),r$ // save lenath 

mov STRNEXT,-(r4) // move next data address into stack 
mov r5,-(r4à) IA «cwpawcsgtestring length for strmoy 
jsr pc,strmv 

dec ro 

eto (r0)+ // did we read a while string?? 

beq If 
er: 

sto (r0)+ I7 TNO look for the end of this string 
bne cb 

I: 

mov rO,STRNEXT 

rts pc 


ea 





floter.s 
mates = 170100ftst 
eds = 170e00Ttst 
/ ftoa -- basic g fp conversion 


s| ob! alero ct 


/ ecvt converts frQ into decimal 
INS trina of converted digits is posnted to by rd. 
/ the number of digits are specified by nodigit 
YZ fe contains the decimal point 
/ rl contains the sign 
fcvt: 
clr eflaa 
br 1 f 
ecvt: 
mov $l,eflag 
I: 
stfos - (sp) 
Idfos 5200 
mov f frO,-(sp) 
movf fri,-(so) 
mov r3,-(sp) 
mov $buf,ri 
cir reo 
ENT sign 
us tf fro 
C t CC 
beq zer 
oot If 
inc sign 
negf fru 
Ls 
modf Zone, fro 
tstf fri 
efec 
bea Iss 
gun. 
movf frO,- (sp) 
movf fol, tro 
1 
mov Sbuftop,r3 
los 
mod f tenth, frd 
mov f fuU. tre 
movf tri,fro 
ada f $epsilon,fre 
modf $ten,fr2 
movfj fr5,p0 
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add $'0,r0 


movb r0,- (r 3) 
inc rd 
t et f fro 
GM CC 
bne lb 
7 
mov Sbuf,rl 
Lt 
movb (r3)+,(r1)+ 
cmp r3,$buftop 
blo 1b 
/ 
movf (so)+,fro 
br pad 
zer: 
inc rd 
br pad 
bss: 
dec re 
modf Sten, fro 
est f frit 
ecc 
bea lss 
Encre. 
jsr pc,digit] 
pad: 
jsr pc,digit 
Om OUt 
br pad 
digit: 
emo cl, bouftoo 
bhis | f 
add $2, (sp) 
mod f Sten, frdQ 
digiti: 
movf 1 fri,rO 
add P 0, n0 
movb r0,(ri)+ 
J: 
rts pc 
7 
out: 


mov $buf,rd0 
aed nodigit,c0 
tst eflag 
one lf 
add rero 

J 
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eme ot 0» buf 
blo outout 


movb Cea es 
sud S5,rí 
movo a5, r0) 
J: 
cmpb eu): 
ble If 
movb $'0,(r0) 
cmp rO,$buf 
blos of 
incb -(r0) 
br 1b 
2: 
movo bulum) 
inc re 
lies 
outout:; 


mov sian,ri 
mov nodigit,rO 
tst eflag 

bne if 

add ro,rO 


c i rb buf(r0) 
mov $buf,rO0 
mov (sp)t,r3 


mov f (spo +, fr 
mov f (so)+,fr0 
ldfos (sp)+ 
mus pc 
epsilon = 037114 
one = 40200 
ten = 41040 
«data 


meme 8575147 1465147 146314; 1463515 
mogua?t: 10. 


.bss 
Duf: RO 
buftop: 
sign: -,+2 
eflag: .=.+0 
etext 


/ € library-- floating output 


Eb! floter 
Mito ter: 
l: 
mo v f *(rd)+,fr0 
mon oC, fcvt 
tst rl 
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beq if 


movb prey (ms 
lb 
Not re 
Boot if 
movb $'0,(r3)+ 
L: 
Emp nodigit,re 
jie 6f 
mov res,rl 
ble 1f 
p 
movb rot, (rs) + 
Sop ri,cb 
I: 
mov nodigit,rl 
beq If 
movb DAS 
lee 
meg re 
ble 1f 
er 
dec rl 
cet if 
movb 5'0,(r3)+r 
sob rercb 
l: 
mot nl 
ble ef 
ps 
movb (oer S) 
sob rl,1b 
es 
rts pc 
©: 
movb os, (rs) 
sob r2,6b 
pts OC 
pscien: 
mov rÜ,nodiait 
pst rc 
bne 1f 
mov $6,nodiait 
bi 
movf (r4d)+,fr0 
jsr pc»,ecvt 
est ri 
bea lif 
movb $'-,(r35)* 
|t 
movb (r0)*, (r5)* 
movb Doc ma e 
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novoenodigit.,r! 


dec ri 

Ole 1f 

movb (rO +, (r) + 
sob O 

mo vb $'e,(r3)+ 
dee re 

mov roó,rl 

bge 1f 

movb $'-,(r3)* 
neg rl 

br eof 

movo S t oe) + 
clr ro 

any $10.,r0 

add 3'0,r0 

movb rO (r) + 
add $'0,ri 

movb r l (ro) + 
prs pc 
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ES 
Kobi int 
etext 
one = 040200 
unt: 
movf *(rd)+,fr0 
modf  $one,frO 
movf frl,fr0 


tstf fro 

efec 

bge If 

sub Sone,frÚ 
is: 

rts pc 


E87 





Fea ob | len,lenath 
etext 


movif rO,frO0 
rts pc 


aan Off dëfsult 


len: 

length: 
tst (r4)+ 
mov (r4),re /copy address 
ere r0 

ie: 
Sto (re)t 
beq ef 
inc rO 
br Ib 

p 


// length now 
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length 


im fro for 


return 


len.s 








Euobi lindmp 
Bob) stdout 
stext 


Eioomp: 


- 


Beh: 


mov  $1,r0 

movb S'0ich 

WS write? Ich; 1 
mov Ww$PBD.,stdout*e 
pes pc 


wae tc 
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lindmp.s 





"Job! mod 
one = 040200 


etext 
moc: 

mov f 
divf 
mod f 
mu] f 
SC 
mov f 
sub f 
rts 


Berd) at ru 

*(r4),f rd 

Bone, frQ 

Ord), fri 

x(r4)+ // oop stack 
*(ra),frO0 

fri fro. 

DC 
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mod.s 





ubhob!l nbrrdr 


zob! 


etext 
o e r dr š 


mov Snumbst,r 3 
mov $25.,rl 
eir r2 


mov $0,r0 

Sys read; rch; 
bes badread 
empbb $'9,rch 
but of 

cmpo S$'O,rch 
Bar of 

movb rch,(r3)* 
cop ri,lb 

br f 


cmpb $ ' erch 
bea 3f 

cmpb teeta rch 
beq 3f 

QDD 5'.,rch 
ped 5f 

emen $'-,rch 
beq 4f 

eren $'t,rch 
beq 3f 

br 6f 


cmo r3,inumbst 
beq 1b 


l 


cmo r3,$numbst+l 


one of 
tst re 
one of 
Sor], lb 


cmp r3,dnumbst 
bne of 
movo cch,(r3)+ 
le 


est re 

bne 6f 

mevo rch,í(r35)* 
me re 

sop rl,lb 


est re 
bne ef 
movb St sss) E* 


numbst,ERROR 


norrorss 


/length of number limited to 23 digits 


/standard 
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input 





movb 5'N0,[r3) 
mov  $numbst,-(rd4d) 
rts oc 
badread: 
jsr r5,ERROR 
«ERROR bad system cal! morrar\n\0> 
seven 
gata 
BGN: Pe 
numbst: .=.+40, 
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nnump ter: s 
job) numptr 
nooo! numbr,nodigitsstdout,floter,r|]indmp,ERROR 
etext 


numptn: 
mov $numbr,r3 
ISe’be,floter 


sub nodigit,stdout +? 
tst stdoutte 

pot If 

jse pc,tindmp 

mov $80.,stdoutte 


mov ¿numbr+r3 
mov nodigit,re 


mov $1,r0 

movb (r3)+,nch 
SYS writer nch}; 1 
sob re,2b 

mov $1 ,r0 

movb $' ,nch 


sys write ; nch; 1 
rts pc 


mich > E.g 
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umobi rad+deg 


etext 
rad: 
mul f pi*,frO0 
pts DIE 
me. 056616; 0175065; 011224; 0164706 
deg; 
mu lf rde,frO 
rts OC 
rde: 0415457 0273407 0151436; 07703 
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rades 








Ecmob! rnd 

.globl rand 
maxplusone = 044000 
rnd: 


sr pc» rand 

movi f moss 9 

divf Smaxolusone, fro 
rts pc 
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rnd.s 





s. Ob] s 
sglob) e 
etext 
onehalf = 
sinh: 
movf 
negf 
Jsr 
movf 
movf 
jser 
sub f 
mu] f 
rts 
sinhsave: 
sinharal: 


inh 
xp 


040000 
// sinh funct .oOx*(e*xx*xu-exx*-u) 

frO0,sinhsave 
fro 
pc,exo 
frO,sinhargl 
sinhsave,froO 
OC exp 
sinhargl,fro 
onehalf,fro 
DC 

22: t0, 

zu 45. 
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Sinn. s 





«.Qlobl strcmp 
etext 
strcmp: 


mov (rd)+,r2 
mov (r4)+,r1 
mov (r4)+,r3 
mov (r4)+,r0 
cr re 
cun n3 


movb (rO0)t,re2 
beq ef 

movb (rl1)*,r3 
beg 5f 

cmpb reer 3 
blt 4f 

Dar Sf 

br Iib 


movb (ri)+,r3 
bne Uf 

mov $0,-(r4) 
ENS Dc 


mov $1,r3 

neg rs / 
mov r3,7(r4) 
rts pc 


mov $1,-(r4) 
nts pc 


"check to make sure not equal 


/ set flaa to eaual 


/ set less than 
=-=} is less than 


l 


Stpremp.Ás 





sal obi strdmo 
eel ob | stdout,ch,numbr,lindmp,ERROR 
etext 

= romp: 


NW m 


mov [(r4)+,r3 

mov r3,rl 

sub r5,stdout*e 

tst stdout*e? 

pot | f / need a newline 
SF oc, lındme 

moo 580.,5Stdout+? 


mov (rü)*,r?2O 


mov $1,r0 

movb ([(r2)+,ch 
pea 5f 

Sys write; ch; 1 
sob ni, eb 


rts pc 


mov $1,r0 

movb $' ,ch 

SyS write ; ch; 1 
sob LSD 

rts pc 


«data 


numbr: ec. 


Cn 


EEdouct: 1; 8 
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Stidm.s 





Eob5b! strrdr 
Bob! ERROR 
etext 

par: 


mov (rd)+,r1 
mov (rdá)+,rO 


mov $0,r0 

Sys read ; srch; 
bes badread 
emob $'Mn,srch 


beq ef 
pb $'",srch 
beq ef 
movb srch,(r2)+ 
ED rl,1b 
ANO VO $'\0,(re) 
rts pc 
badread: 
SP r5 ERROR 
<ERROR 
Srch: Pe 


l 


bad System call] 


/length to be read 
/address 


default ınpoüt 


/ CU eRe iimac te fash. place 
strina full vet? 
alli strings end IN Aul] 


SPP NN «even 


D 


SEFFOrFSS 





Baloab| tab 
.globl stdout 


etext 
tab: 
mov f 
movf 1 
les 
cmp 
bae 
sub 
D r` 
er 
mov 
mov 
sub 
cmo 
Et 
mov 
sub 
mov 
dis 

movb 
Sys 
sob 


mts 


.data 
Beh: <= 


*(r4)+,fr0 
frO0,r3 


580.,r3 
ef 
$80.,r5 
1b 


Stdout+t2,re 
$80.,rl 
poor 

rire 

3f // 
rl, Stdout+o 
pire 
sStdout,r0 


$' ,tch 
write; tchè 
re, ub 


DC 


te 


tob.s 


// tab value 


LE Char left 
// char needed at end 
l\ficdiesor gt already there or past 


// new end 
// how many Oleaks © 


200 





tan.s 
Eoo! tan 
Balob! cos,sin 
etext 
tan: Jim tan Tumetion :sinm4eos 
zobDi cos»ssin 
movf frO,tansave 
jsr DC COS 
mov f fr0,tancos 
mov f tansave, fr 


JSr Bensın 
movf tancos,frl ^N tesptorvdav by AAA 
ts t f fri 
efcc 
bea 1f 
divf e E 
ES DE 
es 
mov f huaeest.,frl 
tstf fro IA plus or minus eg mtv e 
etcc 
bge E 
negf ol 
e: 
movf fri,fro 
rts pc 
tansave;: 7.78. 
tancos: o 
Núcieiest: 0777/7753 1777775317717 75 1777717 


c 





val.s 


Boop! val 
etext 
val: 

mov Snumvst,r3 
tst (r4)+ / pop stack 
mov (r4)+,r0 / get starting address 
mov $22.,n1 /length of number linited to e2 digits 
clr re 
movb $'0,(r3)+ / insure at least a zero 


movb (r0)+,vch 
cb 5'9,vch 
pat of 

cmpb $'O,vch 
bot ef 

movb vch,(r3)+ 
sob rl,1o 

br 6f 


smpo $' ,vch 
beq Sf 
cmpb P" ¿vch 
beq 3f 
emeo $'.,vch 
beg 5f 
emoo $'-,vch 
beq 4f 
Gmoo 3'+,vch 
beq 3f 

| or 6f 


cmp r$,$numvst 
beq 1b 
cmp r3,®°numvstri 
one Of 
Got re 

| bne of 
sob rl,165 


cmp r$,$numvst 
bne 6f 

movb vch,(r3)* 
pr Io 


| tst re 

| ne of 
movb vch,(r3)t 
inc re 

P. sob rl;,lb 


| tst r2 


bne df 
movb O 
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or, Cro) 
$numvst,-7(r4) 
DC 
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int 
int 
int 
int 
int 
int 
int 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 


main 
char 
C 
i 


j 
w 


PROGRAM LISTING - UNIX EXECUTIVE PROGRAM 


c (llaq; 
jr lao; 
oflag, 
rflao; 
sflaa; 
tflaa; 
vflaa: 
*av (501; 
*bproga; 
*lilist (501; 
sal "/Zusr/grapoh/con!|e.o"; 
meee /usr/116/1libt.a":; 
Mas" /usr/graoh/rmtksub.o”:; 
*gü "/usr/graoh/moresub.o"; 
wen /usr/graoh/vg.a"; 
*passÜ "/usr/basic/baxcomoS"; 
*passi "/bin/as"; 
moasse "/bin/ld"; 
kpass3 "/bin/rm"; 
tsí10001; 
*tsp ts; 
(argc, argv) 
xərav[ 1; { 
har *t; 
at iy Je bflaa, nl, nxo; 
=oflag=nl=nxo=0; 
mule (tti < arac) { 
he Carovii) 10] == '-') 
switch taravt1) 111) 4 
default: 
qoto passa; 
ease. o 3 //produce as-language file 
sflaatt; 
bflag*t; 
breaks 
case 'o': //produce object file 
oflaqt+; 
break; 
case 'C': //aopoend C library for loader 
lflagtt; 
break, 
case “ec”: //aovend conographics library 
cflagt+; 


lflaot+; 
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break; 


cose "tt //append tektronics library 
tflagtt+, 
lflag++; 
breaks 
case ‘r's //append ramtek library 
rflagt+t+; 
lflag++s; 
oreak; 
case Yi //append v a library 
vflag++; 
lflagt*; 
break; 
} 
else { 
passa: 
t = argv[i; 
if (getsuf(t)=='b'") 4 //vs file.b an argument? 
` bflaq++; 
bprog 2 t; 
tetsu (t o N 7/it So, create fileio 
) 
if C (noduo(hiristyt)) { //does file.? exist as a 
llist[(nl+*+*+] t; // previous argument? 
Ptitectsutf(t) == ta”) //is argument file.o? 
mxo tts 
} 
} 
) 
foe so flag) 
goto nocoms Zfnostı e.b source Program 
avi0} = “baxcomp"; // available for compilation 
aví(í1] = borog; 
avl2] = 0; 


moutcallsys(pass0,av) !- 0) { 

printf("Procedure terminated at compilation state.n"); 
exit( ); | 7 

) 

mao tb flacgiioflag)) exit ); 

w=  setsufloprog,’s'); 


SUD = "as"; 
av(1] = "="; 
av[2] = t; 
av[{3} = 0; 


callsys(passil,av); 

if (oflag) í 
t = setsuflbprog,'o'):; 
unlink(t); 
nuc ge a3vout",t)) 

Saa fal ZsNn' t); 

und umen aot") 
exit); 

) 

nocom*. 
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A u > 


) 


i = 0; 

sod) = "lg"; 
avli]l = *-x"; 
mit Sof lac) 


av[2] = t; 

else 
mors = "a.out"; 

ENSE "/usr/basic/basihclib.a"; 

j = 4; 

while (j<nl+3) 
av()j++]) = llist[++i); 

if (cflaq) 
av[j++] = gl; 

m (tflao) 4 //three passes are needed due to 
av[j++] = qo; /£arcehiving of il yorary 
avlj+r+) = ge; 
avljtt) = ad; 

) 

if (rflag) «í 
av()++) = 95 
avlj+tt) = 943 

} 

K (v fla) 
avij++) = gS; 

mieeci flag) 
av{jtt] = “-1e"; 

av(jtt) = "la"; 

av[)++) = 0; 


if (callsvs(passeó,av) !- 0) { 
printf("Procedure terminated at 
exit( ); 

} 

if (sflag) exit( ); 

t = setsuf(t,'s'); 

avt0) = "rm"; 

av [i1] t; 

av i2) 0; 


load state.mn")7 


callsys(pass3,av); remove files Since not specifie3 


exit( ); 


getsuf(as) 
char así]; 


( 


register int C; 
register char *s; 
register int t; 
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Ctt; 
S z- 5; 
BENE Cc-I4.&R& Coe && *stt--z'.') 
return(*s); 
return(0); 
) 


setsuf(as, ch) 
char así]; 
( 
register char k*s, *s1l; 


S = sl = copy(as); 
while(xs) 


MONET 22 'Z7') 
sl = sS; 
s[-1] = ch; 


return(sl); 
} 


earmisys(f, v) 
A Ll), xv); (Í 
int t, status; 


EN (t-fork())520) ( 
execv(f, v); 
ms tf CU C Ont find ZsNn", $); 
exit(1); 
) else 
if (t == =1) { 
priat Tey adgainwno"); 
return(1); 
) 
while(t!-zwait(&status)); 
EO (t-(statusS05/7)) !- 0 && t!-148) { 


if (tise) /* interrupt */ 
orint F ratal error n sn . f); 
exit(); 
} 
meurn((status»»8) & 03/77); 
} 
copy(as) 
Char así]; 
( 
register char *otsp; *s; 
otsp = tsos 
s > as; 
while(xtso** = xs++); 
return(otsp); 
} 


noduo(l, os) 
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` 
P — — Ř 
— — P À 
—— Rn F e 


A e P. 


char x], tosi 


{ 


register char *t, *s; 
register int c; 


S = OS; 
if (getsuf(s) != 'o') 
return(1); 
while(t = x1++) ( 
while(c = *s-**) 
joe (cc. f= *t ++) 
break; 


if (*#z=='NO' && c=='N0') 


return(0); 
S = os; 
) 
return(1); 





To. 


IU 


ld. 


NS. 
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